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ПРЕДИСЛОВИЕ РЕДАКТОРА ПЕРЕВОДА 


Рассматриваемая версия языка Пролог ориентирована на 
бытовую ЭВМ фирмы Spectrum. Основным отличием бытовых 
ЭВМ от персональных является малая оперативная память (часто 
64К). С этим связаны разного рода неприятности, борьбе с кото¬ 
рыми в книге уделяется некоторое внимание. Поскольку у нас 
подобных ЭВМ пока нет, а доступные персональные ЭВМ имеют 
значительно большую память, у читателей, имеющих доступ 
к машине, таких проблем не возникает. В целом описываемая 
версия языка мало чем отличается от широко распространенных 
версий Пролога для микроЭВМ, работающих под управлением 
операционных систем CP/M, MS DOS и UNIX. 

Несколько слов о содержании книги. Непосредственно вопро¬ 
сам искусственного интеллекта посвящена только первая глава. 
Остальные пять глав целиком связаны с Прологом и различными 
аспектами его использования. Анализируются возможности Про¬ 
лога по обработке списков, работе с базами данных и знаний, 
доказательству теорем и построению экспертных систем. 

Если считать, что все только что перечисленное составляет 
предмет исследований искусственного интеллекта, то можно 
сказать, что мы имеем дело с использованием Пролога для реше¬ 
ния задач искусственного интеллекта. Но все же речь в книге 
идет, в первую очередь, о методах и приемах программирования 
на Прологе. Показывается, как эти методы зависят от типа пред¬ 
метной области: для области доказательства теорем они одни, 
для проектирования экспертных систем — другие. В этом отно¬ 
шении книга дополняет и развивает материал ранее выпущенных 
в нашей стране книг У. Клоксина и К. Кларка. 

Книга отличается большим числом примеров программ и по¬ 
дробным описанием их работы. Эти примеры представляют собой 
образцы эффективного стиля программирования, опирающегося 
на широкое использование списковых структур и других встроен¬ 
ных средств языка. В связи с этим при подготовке книги к изда¬ 
нию структура текстов программ была сохранена, только кое-где 
были добавлены комментарии на русском языке. Имена отношений 
решено было не переводить, но в большинстве протоколов работы 
программ для каждого сообщения ЭВМ в квадратных скобках 
дан его перевод. 

Предисловие автора, гл. І, 4 и 5 переведены А. В. Чукашовым, 
гл. 2, 3 и 6 — М. В. Сергиевским. 

М Сергиевский 



ПРЕДИСЛОВИЕ АВТОРА 


Публикации, посвященные искусственному интеллекту, можно 
условно разделить на два вида. К первому из них относятся книги 
по теории искусственного интеллекта, написанные специалистами 
в этой области, как правило, с целью, далекой от практического 
применения. Такие публикации предназначены для квалифи¬ 
цированных программистов, имеющих опыт работы с системами 
искусственного интеллекта, и служат для углубления знаний. 
Большая часть пользователей микроЭВМ вряд ли сможет на прак¬ 
тике воспользоваться описываемыми в этих книгах программами 
и системами. Публикации второго вида, наоборот, ориентированы 
на массового пользователя микроЭВМ и предназначены прежде 
всего для практического применения. Фрагменты программ, 
иллюстрирующих рассматриваемые в них алгоритмы, представ¬ 
ляются обычно на языке Бейсик. 

Автор предлагаемой книги старался придерживаться некото¬ 
рого среднего подхода между этими двумя крайностями. Теорети¬ 
ческий материал, излагаемый здесь, несложен и поясняется 
примерами программ на языке Пролог. Этот язык программиро¬ 
вания распространен в настоящее время в основном в Европе. 
Однако популярность его постоянно растет. Он выбран японскими 
специалистами как один из основных языков для создания про¬ 
граммного и аппаратного обеспечения ЭВМ пятого поколения. 
В США этот язык находит все большее применение для ЭВМ 
с аппаратной реализацией языка Лисп, служащего для решения 
задач искусственного интеллекта и, кроме того, используемого 
как базовый при разработке трансляторов с Пролога. В последнее 
время Пролог получает все большее распространение на микро¬ 
ЭВМ. С появлением ряда мощных ЭВМ этого класса, снабженных 
накопителями на магнитных дисках большой емкости, стала 
возможной реализация небольших, но полезных на практике 
систем. Язык Лисп в настоящее время также используется на 
ряде микроЭВМ (например, на модели Sinclair QL). Однако для 
эффективного применения этого языка необходима специальная 
среда, поддерживаемая аппаратурой. Поэтому решение реальных 
задач с его помощью пока затруднено. 

В этой книге главное внимание уделяется решению неболь¬ 
шого числа основных задач искусственного интеллекта. Однако 





по приводимым фрагментам программ можно получить представ¬ 
ление о принципах создания сложных систем искусственного 
интеллекта. Автор надеется, что материал книги поможет чита¬ 
телю избежать составления длинных, узко специализированных 
программ на языке Бейсик и перейти к значительно более корот¬ 
ким универсальным программам на Прологе. 

Книга рассчитана в первую очередь на самостоятельную 
работу, и все ее главы, за исключением первой, содержат упраж¬ 
нения с ответами. Однако ее материал может быть использован 
н в качестве основы для соответствующих учебных курсов. 

Автор не стремился рассматривать теоретически сложные 
задачи искусственного интеллекта, такие, например, как рас¬ 
познавание речи человека. Основное внимание уделялось про¬ 
блемам, которые пользователи микроЭВМ могут решить, не 
углубляясь в сложности теоретических построений. 

Дж. Макаллистер, 1987 г. 



1. ИСКУССТВЕННЫЙ ИНТЕЛЛЕКТ 


1.1. ИСТОРИЯ РАЗВИТИЯ ИСКУССТВЕННОГО ИНТЕЛЛЕКТА 

В последнее время в самых различных публикациях по вы¬ 
числительной технике все чаще встречаются термины: «ЭВМ 
пятого поколения», «искусственный интеллект», «экспертные си¬ 
стемы», а также названия пока мало распространенных в кругу 
программистов языков Лисп и Пролог. Раньше с понятием искус¬ 
ственного интеллекта (ИИ) связывали надежды на создание 
мыслящей машины, способной соперничать с человеческим мозгом 
и, возможно, превзойти его. Эти надежды, на долгое время захва¬ 
тившие воображение многих энтузиастов, так и остались несбыв¬ 
шимися. И хотя фантастические литературные прообразы «умных 
машин» создавались еще за сотни лет до наших дней, лишь с сере¬ 
дины тридцатых годов, с момента публикации работ А. Тьюринга, 
в которых обсуждалась реальность создания таких устройств, 
к проблеме ИИ стали относиться серьезно. Для того чтобы отве¬ 
тить на вопрос, какую машину считать «думающей», Тьюринг 
предложил использовать следующий тест: испытатель через по¬ 
средника общается с невидимым для него собеседником — чело¬ 
веком или машиной. «Интеллектуальной» может считаться та 
машина, которую испытатель в процессе такого общения не сможет 
отличить от человека. 

Если испытатель при проверке компьютера на «интеллектуаль¬ 
ность» будет придерживаться достаточно жестких ограничений 
в выборе темы и формы диалога, этот тест выдержит даже самый 
маломощный современный бытовой компьютер. Можно было бы 
считать признаком интеллектуальности умение поддерживать 
беседу, но, как было показано, эта человеческая способность 
легко моделируется на ЭВМ. 

Признаком интеллектуальности может служить способность 
к обучению. В 1961 г. профессор Д. Мичи, один из ведущих 
английских специалистов по ИИ, описал механизм, состоящий 
из 300 спичечных коробков, который мог «научиться» играть 
в «крестики и нолики». Мичи назвал это устройство MENACE 
(Matchbox Educable Naugts and Crocces Engine). В названии 
(«menace» в переводе на русский означает «угроза») заключается, 
очевидно, доля иронии, вызванной предубеждениями перед «дума¬ 
ющими машинами». 



До настоящего времени единого и признанного всеми опре¬ 
деления ИИ не существует, и это не удивительно. Достаточно 
вспомнить, что универсального определения человеческого ин¬ 
теллекта также нет. Дискуссии о том, что можно считать при¬ 
знаком ИИ, а что — нет, напоминают споры средневековых 
философов, которых интересовало, сколько ангелов смогут раз¬ 
меститься на кончике иглы. Сейчас к ИИ принято относить ряд 
алгоритмов и программных систем, отличительным свойством 
которых является то, что они могут решать некоторые задачи так, 
как это делал бы размышляющий над их решением человек. 
В предлагаемой книге мы не будем касаться вопросов, связанных 
с программированием сложных вычислительных задач. Нас будут 
больше интересовать процедуры решения, в которых исполь¬ 
зуются такие свойства человеческого разума, как способность 
к абстрагированию и обобщению, как умение изобретать, об¬ 
учаться и запоминать. Мы не собираемся искать определение ИИ. 
Вместо этого в книге рассматриваются основные алгоритмы, при¬ 
меняемые в настоящее время в системах ИИ. 

Термин «пятое поколение» используется в японском долго¬ 
срочном проекте построения ЭВМ совершенно нового типа. В этих 
вычислительных машинах, кроме использования новой элементной 
базы и архитектуры, планируется применять нетрадиционный 
подход к решению задач с помощью новых языков программиро¬ 
вания. Чтобы показать, почему именно сейчас понадобились ЭВМ 
нового типа, сделаем небольшой обзор истории развития аппарат¬ 
ного и программного обеспечения, начиная со времени появления 
первых вычислительных машин и до наших дней. 

При изготовлении ЭВМ первого поколения использовались 
электровакуумные лампы. Эти компьютеры появились в 50-х годах 
и были созданы на основе специальных вычислительных устройств, 
использовавшихся во второй мировой войне в армиях Англии 
и США. Основное назначение этих устройств заключалось в рас¬ 
шифровке закодированных сообщений противника. ЭВМ этого 
поколения занимали очень много места — их часто приходилось 
размещать в специальных зданиях. Разработка, монтаж и экс¬ 
плуатация таких машин требовали больших затрат. Кроме того, 
ЭВМ первого поколения потребляли огромное количество элек¬ 
троэнергии, и поэтому возникало множество проблем с охлажде¬ 
нием их отдельных узлов. По современным стандартам эти ма¬ 
шины обладали довольно низкой производительностью, т. е. 
малым, быстродействием, и к тому же были ненадежны. Програм¬ 
мирование для таких компьютеров осуществлялось на самом 
низком уровне — в кодах, а подготовка программистов для 
каждой модели ЭВМ требовала большого труда. 

Примерно в конце 50-х годов появились ЭВМ второго поколе¬ 
ния, построенные преимущественно на полупроводниковых при¬ 
борах. Эти машины были уже меньше по размерам, но для их 
работы требовалось все еще довольно большое количество элек- 
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троэнергии и во время эксплуатации они выделяли много тепла. 
Появление более производительных и сложных ЭВМ стало воз¬ 
можным во многом благодаря развитию технологии печатных 
схем, обеспечившему массовое производство сложных электрон¬ 
ных блоков, которые в случае их порчи могли легко заменяться 
на исправные. В это же время для программирования начинают 
применять языки высокого уровня — ФОРТРАН, АЛГОЛ и КО¬ 
БОЛ. Эти языки были еще довольно сложны для начинающих 
программистов, но для их использования уже не нужны детальные 
знания об устройстве и функционировании ЭВМ. Для начинающих 
программистов был создан язык Бейсик, и многие из программистов 
тех лет знакомились со своей профессией с его помощью. 

ЭВМ третьего поколения стали создаваться в 60-х годах. 
В этих машинах использовались уже интегральные схемы (ИС). 
По внешнему виду, а также по функциональным принципам такие 
ЭВМ похожи на современные. Возросла производительность 
вычислительных машин — возросла и потребность в памяти, 
которая, в основном, была удовлетворена, когда появились бы¬ 
стродействующие запоминающие устройства на полупроводниках, 
заменившие устаревшие, громоздкие и низкоскоростные устрой¬ 
ства на магнитных сердечниках. Плотность размещения элементов 
на ИС первых выпусков была невелика — не более десяти на 
каждой ИС. Однако вскоре начали выпускать так называемые 
СИС и БИС — интегральные схемы со средним и большим уров¬ 
нями интеграции. На одной СИС могли разместиться до 100 эле¬ 
ментов, тогда как на БИС их число достигало 1000. Размеры ЭВМ 
заметно уменьшились, а надежность, быстродействие и разряд¬ 
ность процесса увеличились. Производство ЭВМ стало автомати¬ 
зированным, поэтому их стоимость упала настолько, что даже 
небольшие фирмы смогли заняться проектированием и выпуском 
собственных машин. 

Для ЭВМ четвертого поколения понадобились уже сверх¬ 
большие ИС (СБИС) с плотностью размещения, превышающей 
10 000 элементов на схему. Появление СБИС дало импульс к раз¬ 
витию сразу нескольких направлений вычислительной техники. 
Число команд процессоров современных ЭВМ увеличилось, а их 
команды стали разнообразнее. Одновременно появились ЭВМ, 
имеющие процессоры с упрощенной архитектурой и с умень¬ 
шенным набором команд. Это так называемые РИСК-процессоры 
(RISC — Reduced Instruction Set Computer). 

ЭВМ последнего типа играют сейчас важную роль в развитии 
вычислительной техники. Большие объемы недорогой оперативной 
памяти ЭВМ четвертого поколения позволили более эффективно 
использовать языки высокого уровня, а также устанавливать на 
указанных машинах мощные операционные системы. Функции 
управления и обработки, прежде выполнявшиеся различными 
блоками ЭВМ, в настоящее время реализуются одним устрой¬ 
ством — центральным процессором (ЦП), что позволило обойтись 
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без теперь уже лишних транзисторов и ИС более низких уровней 
интеграции, которые использовались в машинах предыдущих 
поколений. Появились комплекты функциональных блоков ЭВМ 
на интегральных схемах, позволяющие создавать различные 
варианты микро- и мини-ЭВМ. 

Вычислительная техника перестала быть замкнутой областью, 
доступной лишь специалистам, — компьютеры вошли почти во все 
сферы жизни человека. В создании ЭВМ четвертого поколения 
большую роль сыграло развитие МОП-технологии (технологии 
производства полупроводниковых приборов типа металл — 
окисел — полупроводник), позволяющей создавать электронные 
устройства с элементами, практически невидимыми без микро¬ 
скопа. Устройства, созданные по такой технологии, для своей 
работы требуют ничтожных энергетических затрат. В этой книге 
технические детали построения ЭВМ не обсуждаются, но следует 
помнить следующий принцип: чем меньше по размерам электрон¬ 
ное устройство, тем оно может работать быстрее. Скорость работы 
сейчас особенно важна, поскольку очень часто для решения задач 
на ЭВМ требуется обрабатывать огромные совокупности данных 
в режиме реального времени, когда каждая отдельная операция 
должна выполняться с максимальным быстродействием. 

Многие специалисты в настоящее время придерживаются 
мнения, что для дальнейшего развития вычислительной техники 
нужны радикальные изменения архитектуры ЭВМ, так как для 
машин с обычной архитектурой предел возможностей достигнут. 
Поскольку требования к вычислительной технике постоянно ра¬ 
стут, многие страны вкладывают значительные средства в иссле¬ 
довательскую работу по созданию ЭВМ нового поколения. Отме¬ 
тим, что машины пятого поколения, по-видимому, будут суще¬ 
ственно отличаться от распространенных в настоящее время ЭВМ. 


1.2. ОСНОВНЫЕ ЗАДАЧИ ИСКУССТВЕННОГО ИНТЕЛЛЕКТА 

Ранее уже было указано на то, что нельзя дать исчерпывающее 
определение ИИ. Однако можно перечислить задачи, методы 
решения которых на ЭВМ принято связывать с понятием ИИ. 
Ниже приводятся краткие характеристики основных таких задач. 

Автоматическое решение задач представляет собой не столько 
вычислительную процедуру поиска ответа, как, например, расчет 
квадратного корня, сколько нахождение метода решения постав¬ 
ленной задачи. Системы, осуществляющие построение вычисли¬ 
тельной процедуры, называют автоматическими решателями 
задач. 

Под распознавателями подразумевают устройства, реагиру¬ 
ющие на внешнюю среду через различные датчики, например 
телекамеры, и позволяющие решать задачи распознавания обра¬ 
зов. В таких устройствах результаты распознавания выводятся 
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на экран или печатающее устройство, а в более современных 
системах есть возможность синтезировать речевые ответы. Исполь¬ 
зование ИС с большой или сверхбольшой степенью интеграции 
позволяет строить системы распознавания речевых команд. 

Системы распознавания естественной речи позволяют поль¬ 
зователю упростить взаимодействие с ЭВМ с помощью специали¬ 
зированных языков высокого уровня, близких к естественным. 

Задачи доказательства теорем и обучения (например, для 
овладения навыками в какой-либо игре) решаются с помощью 
автоматического совершенствования алгоритма посредством 
обработки пробных вариантов, т. е. как бы с помощью накопления 
«собственного опыта». Следует отметить, что способность к обуче¬ 
нию представляет собой одно из основных свойств ИИ. 

В настоящее время многие отождествляют понятия ИЙ и экс¬ 
пертных систем. Это отождествление появилось во многом благо¬ 
даря разработкам по созданию программного и аппаратного 
обеспечения для ЭВМ пятого поколения, разрабатываемых в рам¬ 
ках упомянутого выше японского проекта. Существующие экс¬ 
пертные системы включают в себя огромные базы знаний, сформи¬ 
рованные с помощью информации, получаемой от экспертов, т. е. 
специалистов в той области, для которой создавалась каждая 
система. Манипуляция накопленными данными осуществляется 
в другой части экспертных систем, содержащей правила вывода. 
Сейчас такие системы с успехом используются в медицине, гео¬ 
логии, а также при проектировании ЭВМ. 

Обычные языки программирования не очень удобны для 
разработки систем ИЙ. Для построения таких систем больше 
подходят такие языки, как Пролог, имеющий встроенный меха¬ 
низм логического вывода, или Лисп, ориентированный на обра¬ 
ботку списков. Кроме того, создано множество специализирован¬ 
ных языков, позволяющих решать ряд отдельных задач ИИ. 
Пролог был изобретен в Европе и вскоре, к удивлению многих 
специалистов, был выбран основным языком в японском проекте 
создания ЭВМ пятого поколения. Язык Лисп, распространенный 
преимущественно в США, начинает постепенно вытесняться Про¬ 
логом. 

Для эффективной работы мощных систем ИИ необходима 
высокая скорость доступа к большим базам данных, а также 
высокое быстродействие. ЭВМ с обычной архитектурой не удо¬ 
влетворяют этим требованиям. Обычные последовательные методы 
решения задач постепенно уступают место методам параллельной 
обработки, когда несколько процессоров независимо друг от 
друга выполняют различные части одной программы. В насто¬ 
ящее время фирма Inmos приступила к выпуску микросхем, 
названных транспьютерами. Использование этих устройств по¬ 
зволяет решить проблему распараллеливания на аппаратном 
уровне. В ближайшее время, очевидно, аналогичные устройства 
начнут выпускать и другие фирмы. 
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Ряд современных, разработок направлен на создание аппарат¬ 
ных средств реализации трансляторов с языков логического 
программирования, в том числе и с языка Пролог. Скорость 
работы систем ИИ в последнее время стали выражать с помощью 
новых единиц измерения — липсов (LIPS — logical inferences 
per second), обозначающих число логических выводов в секунду. 
В настоящее время созданы ЭВМ, способные работать с быстро¬ 
действием в несколько сотен липсов. Однако такое быстродействие 
нельзя считать удовлетворительным, и оно должно быть поднято 
до миллиона липсов и выше. 

В системах искусственного интеллекта человеческие знания, 
необходимые для решения задач ИИ, должны быть представлены 
и записаны в форме, пригодной для последующей обработки на 
ЭВМ. Сложность заключается в том, что многие аспекты знаний 
изменяются в зависимости от условий и с трудом поддаются 
описанию, оставаясь при этом очевидными для человека. Знания 
должны храниться в системах ИИ в некоторой обобщенной для 
данной предметной области форме, позволяющей использовать 
выбранное представление в любой возможной ситуации. Для 
хранения знаний требуется большая область памяти, и, кроме 
того, значительное время уходит на их предварительную обра¬ 
ботку. Знания, заложенные в систему ИИ, должны быть понятны 
человеку. Это очевидное условие может быть упущено при раз¬ 
работке системы. С другой стороны, знания должны представ¬ 
ляться в форме, удобной для обработки на ЭВМ. 

Многие аспекты ИИ связаны с развивающейся в настоящее 
время наукой — робототехникой. Идея создания «разумного» 
робота, способного «учиться на собственном опыте», представляет 
собой одну из центральных проблем ИИ. Такой робот может 
обладать способностью к ведению диалога на ограниченном есте¬ 
ственном языке и уметь решать задачи, требующие инициативы 
и некоторой оригинальности мышления. Для этого необходимо 
некоторое предварительное обучение робота, в результате кото¬ 
рого он мог бы в отличие от используемых сейчас промышленных 
роботов выполнять целенаправленные и заранее незапрограмми¬ 
рованные действия. 

В течение многих лет идеи ИИ серьезно не рассматривались. 
Это происходило отчасти благодаря чрезмерному оптимизму 
некоторых теоретиков, а также из-за появления ряда сенсацион¬ 
ных публикаций по этому предмету, впоследствии оказавшихся 
во многом несостоятельными. Идея аппаратно-программных моде¬ 
лей человеческого мозга вызывала насмешки, а в сфере техниче¬ 
ского производства стали избегать разработок, связанных с ИИ, 
так как результаты их внедрения явно не соответствовали обе¬ 
щаниям. Эта в полном смысле слова плачевная ситуация в на¬ 
стоящее время изменилась к лучшему благодаря новейшим 
достижениям в разработке аппаратуры и программного обеспе¬ 
чения ЭВМ. 
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Однако сложившееся к настоящему времени взаимное недо¬ 
верие между теоретиками ИИ и представителями промышленной 
сферы может привести к тому, что научно-исследовательские 
работы в данной области будут испытывать значительные финансо¬ 
вые трудности, и, кроме того, эти работы будут оторваны от ре¬ 
альных нужд промышленности. Следует обратить внимание на 
опыт индустриального развития Японии, добившейся за последние 
20 лет рекордных достижений в экономике. Такой успех стал 
возможен благодаря быстрому и повсеместному внедрению резуль¬ 
татов научных исследований. 

Эта книга рассчитана на студентов и непрофессионалов, обла¬ 
дателей бытовых персональных ЭВМ (ПЭВМ). Мы будем избегать 
задач, для решения которых нужна сложная и доступная лишь 
профессиональным программистам техника, а также берем на себя 
заботу о том, чтобы читатель увидел реальную возможность 
применения полученных сведений на практике. Изучение воз¬ 
можностей своего домашнего компьютера — интересное и приятное 
занятие. При этом многие фундаментальные концепции ИИ усва¬ 
иваются легче, чем с помощью универсальных ЭВМ, общение 
с которыми достаточно усложнено. Конечно, не стоит преувеличи¬ 
вать возможности микроЭВМ. Невозможно, например, на быто¬ 
вых ЭВМ достигнуть такой же скорости логического вывода, как 
на универсальных. Так же бесполезны попытки создания эксперт¬ 
ной системы на компьютере, имеющем объем оперативной памяти 
2К. Следует трезво оценивать возможности бытовой вычислитель¬ 
ной техники. 

В следующем разделе коротко рассмотрим некоторые реальные 
системы ИИ как сложные, так и достаточно простые. 


ЭЛИЗА (ELIZA). Почти в каждой работе по ИИ можно 
встретить упоминание о программе ЭЛИЗА, написанной в конце 
60-х годов профессором Массачусетского технологического ин¬ 
ститута Дж. Вайзенбаумом. Эта программа была создана для ана¬ 
лиза фраз на естественном языке и была названа по имени главной 
героини пьесы Б. Шоу «Пигмалион», которую, как известно, 
по ходу действия пьесы ученый-языковед на пари учит правиль¬ 
ной английской речи. Основная мысль Шоу заключалась в том, 
что Элиза до этого курса обучения и после него оставалась тем же 
самым человеком, т. е. с одними и теми же добродетелями и поро¬ 
ками, хотя окружающие воспринимали девушку-цветочницу, раз¬ 
говаривающую на примитивном жаргоне и прекрасно одетую 
даму с изысканной речью, как совершенно разных людей. Можно 
высказать аналогичную мысль и об ЭВМ, остающейся безжизнен¬ 
ной совокупностью электронных устройств, несмотря на сложные 
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программы, загружаемые в нее. Вайзенбаум [3 ] подробно описы¬ 
вает организацию этой программы и показывает, как ее следует 
использовать. ЭЛИЗА может «научиться» вести диалог на любую 
тему, располагая небольшим набором ключевых слов, выбранных 
случайным способом из исходного предложения, введенного со¬ 
беседником, а затем с помощью слов, получаемых от него в про¬ 
цессе диалога. Слова из сообщения, введенного пользователем, 
последовательно сравниваются с ключевыми словами, находя¬ 
щимися в стеке. Затем из стека возможных ответов выбирается 
фраза, содержащая данное слово. Если во входной строке ключе¬ 
вое слово не было найдено, ответ выбирается случайным образом 
из другого стека, содержащего нейтральные общие фразы, которые 
обычно присутствуют почти в каждой беседе и при этом совер¬ 
шенно не влияют на ее развитие. Такие фразы можно обнаружить 
не только в пустой болтовне, но и в деловом разговоре. Таким 
образом, ЭЛИЗА может поддерживать разговор на любую пред¬ 
ложенную собеседником тему. 

Создавая программу ЭЛИЗА, Вайзенбаум не ставил своей 
целью разработку системы ИИ. На примере данной программы 
он хотел продемонстрировать сложность общения с ЭВМ на есте¬ 
ственном языке, так как диалог между людьми с трудом поддается 
точному определению и никогда заранее нельзя предугадать, 
какие смысловые оттенки придают собеседники тем или иным 
фразам. К удивлению автора программы ЭЛИЗА один из ее вари¬ 
антов был воспринят серьезно. Он назывался ДОКТОР (DOCTOR) 
и был задуман Вайзенбаумом как пародия на одну из широко 
известных школ психотерапии. Во время «психотерапевтического 
сеанса» ДОКТОР задает вопросы (типа «Каким образом?» или 
«Почему вы об этом говорите именно сейчас?») или в другом случае 
повторяет слегка перефразированный ответ собеседника, при¬ 
глашая его тем самым развивать свою мысль дальше. Вайзен¬ 
баум никак не ожидал, что эта шуточная программа будет вос¬ 
принята как шаг к доказательству возможности общения с ЭВМ 
на естественном языке и что даже достаточно рассудительные 
люди всерьез начнут относиться к возможности разрешения 
своих сугубо личных проблем, посвящая машину в собственные 
секреты и ожидая от нее помощи как от умудренного опытом 
врача-психотерапевта. 

Возможно, кто-то будет сомневаться в искренности скептиче¬ 
ского отношения Вайзенбаума к своей программе. Я бы порекомен¬ 
довал скептикам, а также всем, кого заинтересовали возможности 
программы ЭЛИЗА, обратиться к книге этого автора и составить 
собственное мнение о программе. На самом деле различные ва¬ 
рианты этой программы получили широкое распространение, 
и часть психотерапевтов считает, что она может помочь в диагно¬ 
стике и даже в лечении ряда психических нарушений. Один из 
таких сторонников программы ЭЛИЗА предложил установить 
ЭВМ с этой программой в общественных местах, таких, как, 
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например, вокзалы и почтовые отделения, чтобы каждый имел 
возможность обратиться к машине, заплатив несколько долларов 
за сеанс. 

Читатель может написать собственный вариант программы 
ЭЛИЗА для бытовой ПЭВМ, но, конечно, при условии, что 
у нее достаточный объем оперативной памяти. Однако можно 
привести несколько причин, объясняющих, почему заниматься 
программированием еще одного варианта ЭЛИЗЫ не следует. 
Во-первых, алгоритм, реализованный программой ЭЛИЗА, ис¬ 
пользуется в современных системах ИИ достаточно редко. Данная 
программа была разработана для создания иллюзии «разумности 
машины», а не для моделирования каких-либо мыслительных 
способностей человека. Кроме того, чтобы написать и отладить 
такую программу, понадобится много времени и можно считать, 
что это время будет потрачено впустую, поскольку, как уже 
было отмечено, методы программирования, используемые при ее 
написании, для создания систем ИИ не применяются. Правда, 
необходимо отметить, что ЭЛИЗА в свое время наделала много 
шума. Но следует при этом учитывать, что тогда возможно¬ 
сти вычислительной техники были известны лишь небольшой 
группе специалистов. В наше же время, когда школьники 
с помощью собственных программ проникают в засекреченные 
базы данных сложнейших систем, а ЭВМ стала предметом до¬ 
машнего обихода, такая программа едва ли привлечет много 
внимания. 

Система MYC1N. Любая область деятельности всегда опи¬ 
рается на большой объем знаний, полученных опытным путем. 
Процесс обучения специалиста обычно состоит из двух основных 
периодов: сначала знания накапливаются, а затем проверяются 
на практике. Фактический материал составляет значительную 
часть знаний специалиста, но важную роль играют также раз¬ 
личные неформальные правила, позволяющие строить правильные 
решения на основе неполной информации. Поэтому и для ученика, 
постигающего ремесло, и для студента, изучающего какую-либо 
область науки, одинаково важно не только приобрести основные 
знания по интересующему его предмету, но и узнать о неточных, 
неопределенных до конца его сторонах. 

Факты заносятся в экспертную систему непосредственно в том 
виде, в каком они обычно представляются в печатных документах. 
Гораздо сложнее в этих системах формируется часть, реализующая 
моделирование экспертизы. Эта часть состоит из формализованных 
правил, которыми руководствуется эксперт в своей работе. Обычно 
экспертные системы строятся из двух основных частей: базы зна¬ 
ний и программного механизма вывода, выполняющего действия, 
основанные на логической дедукции. Указанный механизм с по¬ 
мощью заложенных в него правил и на основании имеющихся 
фактов строит логические заключения, иногда дополняя ответ 
оценкой его правдоподобия. 



Автор программы MYCIN Е. Шортклиф описал ее в 1976 г. 
Эта программа предназначалась для консультационной помощи 
при диагностике инфекционных заболеваний крови. Врачи обра¬ 
щались к указанной программе за консультацией при определе¬ 
нии болезни пациента и могли сами обновлять первоначально 
заложенную информацию, вводя новые данные и правила. 

Перечислим основные свойства программы MYCIN. Во-первых, 
эта программа может с помощью правил вывода и на основании 
данных, заложенных изначально и вводимых пользователем, 
делать логические выводы. Во-вторых, в программу MYCIN 
заложены средства, позволяющие оценивать правдоподобность 
полученного вывода, пользуясь шкалой оценок от 0 до 1,0. Третье 
важное свойство заключается в том, что данная программа может 
давать пояснения к полученному решению, указывая шаг за 
шагом ход своих «рассуждений». Наконец, в-четвертых, она может 
быть использована для диагностики других инфекционных заболе¬ 
ваний. Последнее свойство является на наш взгляд наиболее 
важным. Оно означает возможность замены правил и данных, 
связанных с диагностикой инфекционных заболеваний, на другие, 
соответствующие иным областям применения. 

Таким образом, можно рассматривать MYCIN как универсаль¬ 
ную экспертную систему. Механизм вывода программы MYCIN, 
называемый EMYCIN (Essential MYCIN или Engine MYCIN), 
используется в совершенно различных областях деятельности. 
Интересно, например, применение EMYCIN совместно с про¬ 
граммой MARK, предназначенной для решения задач методом 
конечных элементов. Правильное обращение с этой программой, 
разработанной по заказу ВВС США, требует большой предвари¬ 
тельной подготовки. На основе EMYCIN была создана программа 
SACON (Structural Analizis Consultant), формирующая обращения 
к программе MARK с помощью анализа запросов пользователя, 
написанных на несложном языке структурных спецификаций. 

Еще один пример использования программы EMYCIN — пакет 
ГУИДОН (GUIDON), разработанный в Стэнфордском университете 
В. Кланси и описанный в его докторской диссертации в 1979 г. 
С помощью этого пакета можно создавать программы для обучения 
работе с любой основанной на EMYCIN экспертной системой. 
Указанный пакет программ использует специальные правила для 
создания методики обучения и правила вывода для выбранной 
предметной области. С помощью программы EMYCIN можно соз¬ 
давать обучающие программы для самых разных областей при¬ 
ложения. В последней главе мы рассмотрим несколько небольших 
экспертных систем, основанных на ряде принципов, используемых 
в программах EMYCIN и ГУИДОН. 

ДЕНДРАЛ (DENDRAL). В функционировании популярной 
экспертной системы ДЕНДРАЛ, используемой для решения задач 
химического анализа, можно выделить три основных этапа. 
Сначала с помощью базы знаний составляется список исходных 
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условий, дополняемый на втором этапе пользователем, затем 
система генерирует, проверяет и ранжирует возможные решения, 
после чего выводит их на печать в порядке рангов. Первоначально 
ДЕНДРАЛ была написана на языке Лисп, но затем была реализо¬ 
вана на других языках, что позволило перенести ее на различные 
ЭВМ. Одна из таких версий была создана в г. Эдинбурге для 
PDR-10. Основные этапы работы данной версии — это планиро¬ 
вание, генерация и проверка решений. Указанная версия системы 
ДЕНДРАЛ используется в США и в Западной Европе и пред¬ 
ставляет собой едва ли не лучшее на сегодняшний день применение 
системы ИИ. 

В статье профессора Стэнфордского университета Е. Фейген- 
баума, напечатанной в сборнике «Интеллектуальные системы» 
под редакцией Д. Хейеса и Д. Мичи [6], указаны два главных 
принципа инженерии знаний. Согласно первому для построения 
и функционирования любой экспертной системы главными яв¬ 
ляются закладываемые в систему знания. Недостаточный объем 
знаний не может быть компенсирован более сложным механизмом 
вывода, хотя долгое время многие придерживались противополож¬ 
ной точки зрения. 

Второй не менее важный принцип заключается в том, что 
большая часть знаний должна носить эвристический характер, 
т. е. представлять часть человеческого опыта, позволяющую 
специалистам в какой-либо области находить правильные решения 
в условиях с неполной информацией. Так, например, опытный 
автомеханик может сразу обнаружить большую часть неисправ¬ 
ностей мотора, однако при этом не всегда в состоянии объяснить, 
какие именно факторы он использовал при диагностике. Эксперт 
пользуется всеми своими природными чувствами совершенно 
бессознательно, не отдавая себе отчета, каким образом каждое 
из них влияет на получение ответа. 

О важности знаний для экспертных систем в первую очередь 
должны помнить пользователи персональных ЭВМ, так как боязнь 
создать программу, не умещающуюся в памяти машины, может 
привести к попытке улучшить систему с помощью многократного 
совершенствования механизма вывода в ущерб пополнению базы 
знаний. 


1.4. ИНЖЕНЕРИЯ ЗНАНИЙ 

Для построения современных систем ИИ необходимы новые 
методы построения баз знаний. Как было указано в предыдущем 
разделе, многие аспекты знаний нельзя точно определить, по¬ 
этому при создании баз знаний основная задача заключается 
в получении необходимых знаний от экспертов и вводе их в ЭВМ 
так, чтобы потом они могли быть использованы системой. Главная 
трудность здесь состоит в том, что формирователь базы знаний 
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(инженер знаний), как правило, не является специалистом в той 
области деятельности, для которой создается экспертная система. 
В то же время эксперт не всегда может быть достаточно знаком 
с методами программирования баз знаний. Кроме того, свои 
знания эксперт использует чаще всего бессознательно и не 
всегда может, даже если и хочет, передать все свои знания и 
навыки. 

Как же должен поступать в таких случаях инженер знаний, 
какие задавать вопросы эксперту? Поиском ответов на такие 
вопросы занята новая наука — инженерия знаний. Основные ее 
усилия направлены на создание систем, способных автоматизи¬ 
ровать большую часть работ по формированию базы знаний. 
Хорошим примером таких систем служит упомянутая выше си¬ 
стема SACON. Поскольку потребность в инженерах знаний воз¬ 
никла недавно, таких специалистов в настоящее время мало, 
к тому же почти все они заняты исследовательской работой в раз¬ 
личных университетских центрах. Однако очевидно, что область 
применения экспертных систем быстро расширяется и в ближай¬ 
шее время количество инженеров знаний, работающих в сфере 
производства, значительно возрастет. С другой стороны, необ¬ 
ходимость в таких специалистах пропадет, когда будет решена 
задача автоматизации формирования знаний. 

В упоминавшейся выше книге «Интеллектуальные системы» [6 ] 
есть статья под названием «Прототип метода очистки знаний», 
написанная Мичи. В ней описывается методика получения знаний 
из исходного материала, чем-то напоминающая способ выделения 
чистого бензина из нефти. Исходный материал для базы знаний 
может быть получен от экспертов или взят из различных печатных 
источников, например из книг, технической документации и т. д. 
В статье Мичи приводится ряд аргументов в пользу того, что 
Англия в ближайшее время будет играть значительную роль 
в производстве систем ИИ, так как именно в этой стране несколь¬ 
кими учеными, работающими в области информатики, были полу¬ 
чены результаты, которые с успехом могут быть использованы 
при создании систем ИИ, пригодных для промышленного произ¬ 
водства. Большинство этих ученых, не имея возможности за¬ 
няться промышленной реализацией своих разработок, обратилось 
за помощью к соответствующим фирмам. 

По сравнению с другими видами производства финансовые 
затраты на реализацию систем ИИ довольно низки, так как многие 
фирмы, специализирующиеся на изготовлении программного обес¬ 
печения, имеют в своем штате достаточное число квалифицирован¬ 
ных специалистов, способных заняться разработкой указанных 
систем. Вполне возможно, что Англия могла бы стать поставщиком 
специалистов по системам ИИ. 

Однако далеко не все проблемы решены и обсуждение воз¬ 
можностей промышленного производства таких систем сейчас 
в самом разгаре. 
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1.В. ДРУГИЕ ЭКСПЕРТНЫЕ СИСТЕМЫ 


Проф. Мичи связан с фирмой Intelligent Terminals, разрабо¬ 
тавшей экспертную систему Expert-Ease («Эксперт-Из»), которая 
распространяется фирмой Expert Software International. Боль¬ 
шинство коммерческих экспертных систем имеют узкую специали¬ 
зацию и, к тому же, довольно дороги, поэтому их реализацией 
могут заниматься только достаточно крупные фирмы, специали¬ 
зирующиеся на продаже таких систем. По сравнению с другими 
пакетами программ для микроЭВМ система Expert-Ease довольно 
дорога, однако ее цена невысока. К тому же, пользователь может 
приобрести готовую систему за более низкую плату. Expert- 
Ease — универсальная система (такие системы называют также 
оболочками экспертных систем). С ее помощью можно строить 
экспертные системы для различных областей приложения, а также 
пакеты графических программ, текстовые редакторы и игровые 
программы для домашних персональных ЭВМ. Первая версия 
Expert-Ease была разработана для персонального компьютера 
IBM PC, обладающего оперативной памятью емкостью 128 К 
и снабженного двумя двусторонними накопителями на гибких 
дисках, каждый емкостью 320К. Вместе с оболочкой системы 
поставляется также демонстрационный пример, позволяющий 
пользователю быстрее научиться работать с оболочкой. 

Работа системы Expert-Ease заключается в индуктивном вы¬ 
воде нужного правила из достаточно большого числа образцов, 
а затем в получении результата с помощью этого правила. Тип 
получаемого ответа зависит от области применения системы. 
Прилагаемый к поставляемой системе демонстрационный пример 
представляет собой экспертную систему для обнаружения не¬ 
исправностей электронной схемы с помощью 20 тестов. Когда 
процедура проверки осуществляется с помощью обычного руко¬ 
водства по тестированию данной схемы, необходимо использовать 
все 20 тестов, в результате чего или констатируется исправность 
схемы, или удается обнаружить какую-либо комбинацию ошибок. 
Аналогичная проверка с помощью экспертной системы требует 
всего шести тестов для того, чтобы убедиться в исправности схемы, 
и самое большее трех тестов для обнаружения любой из неисправ¬ 
ностей. Каждый специалист по радиоэлектронике сможет оценить 
экономичность такого метода тестирования. 

Несмотря на то, что система обладает весьма разнообразными 
возможностями, научиться обращаться с ней довольно просто 
и для работы с ней знаний по программированию не требуется. 
Пользователь вводит в систему названия атрибутов, которые 
описывают рассматриваемый объект. Общее число атрибутов не 
должно превышать 31. Каждый атрибут может быть символьным 
или числовым. Каждый числовой атрибут может принимать одно 
из 255 значений, заранее подобранных из числового диапазона 
от —32 766 до +32 766. Длина символьных атрибутов ограничи- 


22 



Таблица 1.1 


Лист 

Стебель 

Корень 

Семена | 

Цвет- 

Окраска 

растения 

Широкий 

Широкий 

Высокий 

Стелю¬ 

щийся 

Короткий 

Короткий 

Стержневой 

Стержневой 

Споры 

Тяжелые 

Есть 

Нет 

Желтая 

Нет 

Сорняк 

Сорняк 

Строенный 

Мочковатый 

Мочковатый 

Легкие 

Легкие 

Есть 

Нет 

Белая 

Нет 

Сорняк 

Злак 


вается десятью. Ввод значений атрибутов осуществляется с по¬ 
мощью таблицы, в которой каждый столбец соответствует какому- 
либо атрибуту. Последний столбец таблицы обычно отводится для 
результата диагностики. В период обучения системы сначала 
пользователь сам заполняет последний столбец, после чего си¬ 
стема обрабатывает введенные наборы значений и пытается найти 
связывающее их правило с помощью построения дерева вывода. 
После обучения системы данное дерево используется для получе¬ 
ния результатов по вводимым значениям атрибутов. В ряде слу¬ 
чаев система не может найти нужное правило вывода. Это может 
произойти, например, из-за выбора неудачных примеров при 
обучении или в том случае, если какие-либо примеры противо¬ 
речат один другому. В таких ситуациях система сообщает поль¬ 
зователю причину неудачи и ожидает в первом случае ввода 
дополнительных примеров, а во втором — исправления примеров, 
находящихся в конфликте. 

Символьные атрибуты могут задавать бинарные логические 
величины, например «да» и «нет», или в другом случае определять 
значения нечеткой логики, такие, как, например, «длинный», 
«короткий», «зеленый», «серый» и т. д. Пользователь, если это 
ему удобнее, может выражать значения атрибутов в число¬ 
вом виде. В табл. 1.1 представлен пример определения значе¬ 
ний атрибутов. 

При решении практических задач требуется умение различать 
до нескольких сотен различных видов сорняков и злаков с по¬ 
мощью гораздо более длинного списка атрибутов. Например, для 
более подробного описания семян могут быть заданы дополнитель¬ 
ные атрибуты: окраска, размер и т. д. Ответы, как было указано, 
помещаются в правом столбце «Тип растения». 

Для всех атрибутов составляются вопросы, с помощью которых 
заполняются соответствующие графы таблицы. Диалог системы 
с пользователем осуществляется следующим образом. Когда 
требуется задать значение очередного атрибута, его название 
отмечается пользователем с помощью курсора в соответствующей 
таблице названий на экране дисплея. После этого на экране 
появляется вопрос, позволяющий правильно задать значение 
данного атрибута. Так, например, атрибуту «окраска» из при- 
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веденного выше примера может соответствовать вопрос: «Какая 
окраска цветков этого растения?» Если пользователь не может 
ответить на какой-либо из вопросов, он вводит символ неопре 
деленности — «X». Таким образом управление диалогом осу¬ 
ществляется в основном пользователем, что обеспечивает большие 
удобства при эксплуатации системы. 

Теперь рассмотрим две другие системы — AM и Eurisco («Эв- 
риско»), разработанные в Стэнфордском университете д-ром Д. Ле- 
натом для исследовательских и учебных целей (в отличие от 
Expert-Ease, созданной для коммерческой эксплуатации). Однако 
с недавнего времени разработка этих систем финансируется 
22 американскими фирмами, поддерживающими все перспективные 
проекты, которые могут служить ответом на японский проект 
создания ЭВМ пятого поколения. 

Автор указанных систем Ленат считает, что эффективность 
любой экспертной системы определяется закладываемыми в нее 
знаниями. По его мнению, чтобы система была способна к обуче¬ 
нию, в нее должно быть введено около полумиллиона сведений 
общего характера. Это примерно соответствует такому объему 
информации, каким располагает четырехлетний ребенок со сред¬ 
ними способностями. Ленат также считает, что путь создания 
узкоспециализированных экспертных систем с уменьшенным объ¬ 
емом знаний ведет к тупику. 

В систему AM первоначально было заложено около 100 правил 
вывода и более 200 эвристических алгоритмов обучения, позволя¬ 
ющих строить произвольные математические теории и представ¬ 
ления. Сначала результаты работы системы были весьма много¬ 
обещающими. Она могла сформулировать понятия натурального 
ряда и простых чисел. Кроме того, она синтезировала вариант 
гипотезы Гольдбаха о том, что каждое четное число, большее двух, 
можно представить в виде суммы двух простых чисел. До сих пор 
не удалось ни найти доказательства данной гипотезы, ни опро¬ 
вергнуть ее. Дальнейшее развитие системы замедлилось и было 
отмечено, что, несмотря на проявленные на первых порах «мате¬ 
матические способности», система не может синтезировать новых 
эвристических правил, т. е. ее возможности определяются только 
теми эвристиками, что были в нее изначально заложены. 

При разработке системы Eurisco была предпринята попытка 
преодолеть указанные недостатки системы AM. Как и в начале 
эксплуатации AM, первые результаты, полученные с помощью 
Eurisco, были эффективными. Сообщалось, например, что система 
Eurisco может успешно участвовать в очень сложных играх. 
С ее помощью в военно-стратегической игре, проводимой ВМФ 
США, была разработана стратегия, содержащая ряд оригинальных 
тактических ходов. Согласно одному из них, например, пред¬ 
лагалось взрывать свои корабли, получившие повреждения. При 
этом корабли, оставшиеся неповрежденными, получают необхо¬ 
димое пространство для выполнения маневра. 



Однако через некоторое время обнаружилось, что система 
не всегда корректно переопределяет первоначально заложенные 
в нее правила. Так, например, она стала нарушать строгое пред¬ 
писание обращаться к программистам с вопросами только в опре¬ 
деленное время суток. Таким образом, система Eurisco, так же 
как и ее предшественница, остановилась в своем развитии, до¬ 
стигнув предела, определенного в конечном счете ее разработ¬ 
чиком. 

В настоящее время доктор Ленат во главе исследовательской 
группы занят кодированием и вводом нескольких сот тысяч эле¬ 
ментов знаний, необходимых, по его мнению, для создания дей¬ 
ствительно «интеллектуальной» системы. Этот проект назван Сус 
(«Дик») (от английского слова encyclopaedia). 


1.6. ЯПОНСКИЙ ПРОЕКТ СОЗДАНИЯ ЭВМ 
ПЯТОГО ПОКОЛЕНИЯ 

Работы по проекту создания ЭВМ пятого поколения в Японии 
координируются Технологическим институтом ЭВМ нового поко¬ 
ления (ІСОТ). В 1987 г. окончился пятый год этого проекта, 
рассчитанного в общей сложности на десять лет. Вместе с проекти¬ 
рованием аппаратуры разрабатывается и программное обеспечение 
для этих ЭВМ. Соответствующая группа занята созданием языко¬ 
вой среды для новых машин, включающей в себя языки опера¬ 
ционных систем, естественно-языковый интерфейс с пользователем 
ЭВМ, а также языки представления данных. Другая группа занята 
вопросами применения новых ЭВМ; она отвечает за разработку 
систем управления реляционными базами данных, экспертных 
систем, а кроме того, оценивает всевозможные предложения по 
использованию новых ЭВМ. В целом японские разработчики 
пытаются сформулировать единую унифицированную теорию пред¬ 
ставления и обработки информации. 

В настоящее время при решении задач, относящихся к раз¬ 
личным областям ИИ, применяются разные подходы. Однако, 
если бы удалось, как надеются японские специалисты, найти 
общую теорию, объединяющую все эти подходы, поиск нужного 
метода решения можно было бы значительно упростить, сократив 
число вариантов при выборе. В результате четырехлетнего пе¬ 
риода работ в рамках проекта была создана ЭВМ Delta («Дельта»), 
функционирующая с помощью обработки элементов базы знаний. 
В этой машине присутствуют такие компоненты, как система 
логического вывода, база знаний, естественно-языковый интер¬ 
фейс, а также система создания программного обеспечения с по¬ 
мощью прототипов. '■ 

Реляционная база данных, используемая в ЭВМ Delta, имеет 
объем около 20 Гбайт. Для работы с этой базой данных на началь¬ 
ных этапах создания компьютера Delta использовались методы 


25 



последовательного поиска, принятые в обычных ЭВМ. Выну¬ 
жденный компромисс показал необходимость максимального рас¬ 
параллеливания операций с базами данных. По оценкам специ¬ 
алистов производительность программно-аппаратных средств вы¬ 
вода должна в окончательных вариантах ЭВМ Delta достигнуть 
миллиарда липсов. Для такого быстродействия понадобится 
100 одинаковых одновременно работающих процессоров. Пола¬ 
гают, что ряд японских фирм сможет уже в начале 90-х годов 
освоить производство таких интегральных схем. 


1.7. ЗАМЕЧАНИЯ ДЛЯ НАЧИНАЮЩИХ 

Владельцы персональных ЭВМ, прочитав предыдущие раз¬ 
делы и ознакомившись с размерами затрат, необходимых для 
построения систем ИИ, могут решить, что, поскольку аппаратура 
для реализации систем ИИ слишком дорога и доступна лишь 
крупным фирмам, нет смысла пытаться создавать такие системы 
самостоятельно. Можно привести несколько аргументов против 
такой точки зрения. Во-первых, как показала практика, многие 
из разработок, выполненных вчера на самом высоком уровне, 
сегодня становятся доступными массовому пользователю. Ре¬ 
зультаты исследований влияют на нашу работу, нашу жизнь 
и даже на наши мысли. Во-вторых, быстродействие вычислитель¬ 
ных машин все время растет, и те программы, которые ранее 
могли быть использованы лишь на очень мощных ЭВМ, теперь 
применяются на обычных машинах. 

Третий и, наверное, самый главный аргумент заключается 
в том, что мы всегда можем при некоторых ограничениях попро¬ 
бовать на практике любые, даже самые передовые методы на 
небольших персональных ЭВМ. Например, известно, что японцы 
используют в своем проекте Пролог и различные варианты как 
основные языки. Однако этот факт не может служить препят¬ 
ствием для желающих изучить язык Пролог, понять его филосо¬ 
фию и испытать его в действии на своих ЭВМ, даже если эти ма¬ 
шины по своим техническим характеристикам могут поддерживать 
лишь небольшую учебную систему ИИ. 

Одним из первых практических результатов, полученных 
японскими специалистами в ходе работ по проекту создания ЭВМ 
пятого поколения, была разработка машины PSI («Пси) — пер¬ 
сональной ЭВМ последовательного вывода, предназначенной для 
исследования логических методов решения задач. Программное 
обеспечение для данной ЭВМ, возможно, имеет более важное 
значение, чем аппаратура: в языке программирования предусмо¬ 
трена реализация методов логического программирования, а опе¬ 
рационная система Simpos («Симпос») использует расширенную 
версию языка Пролог — ESP (Extended Self-contained Prolog). 
ESP позволяет создавать удобные многооконные объектно-ориен- 
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тированные среды для решения задач логического программиро¬ 
вания. Быстродействие опытных образцов PSI, равное прибли¬ 
зительно 30 липсам, по мнению специалистов, может быть по¬ 
вышено при подготовке этой ЭВМ к промышленному производству 
до 200 липсов. Возможно, что эта машина будет первой доступной 
широкому кругу пользователей ЭВМ нового поколения. 

В заключение — несколько слов относительно представленных 
в данной книге примеров, иллюстрирующих методы логического 
программирования на языке Пролог. Такие примеры достаточно 
просты и коротки: они редко превышают страницу печатного 
текста. Но эти фрагменты программ позволяют читателю, с одной 
стороны, лучше понять главные идеи языка Пролог, а с другой, 
в случае необходимости, дополнить их в соответствии с возмож¬ 
ностями имеющихся в их распоряжении ЭВМ. Кроме того, анализ 
примеров позволяет понять основные принципы построения реля¬ 
ционных баз данных и экспертных систем. При изложении мате¬ 
риала автор не старался сделать его академически строгим. Его 
цель — вызвать интерес читателя к методам ИИ, воодушевить его 
на собственные эксперименты в этой области. В случае необхо¬ 
димости читатель может расширить полученные знания с помощью 
специальной литературы по ИИ. 



2. ВВЕДЕНИЕ В ПРОЛОГ 


2.1. ПОЧЕМУ СЛЕДУЕТ ИЗУЧАТЬ ПРОЛОГ? 

Существует довольно много причин, позволяющих объяснить, 
почему пользователи ЭВМ (как новички, так и профессионалы) 
должны уметь работать с языком Пролог. В настоящее время 
Пролог — это широко известный язык с хорошей документацией, 
который используется в Японии как базовый язык для ЭВМ 
пятого поколения. Крупные денежные средства были вложены 
в разработку Пролога в рамках программы «Эсприт» Европей¬ 
ского экономического сообщества и проекта «Элви» в Велико¬ 
британии, а также министерством обороны США и компанией IBM. 

Пролог обладает мощными средствами, позволяющими извле¬ 
кать информацию из баз данных, причем методы поиска данных, 
используемые в нем, принципиально отличаются от традиционных. 
Мощь и гибкость баз данных Пролога, легкость их расширения 
и модификации делают этот язык очень удобным для коммерческих 
приложений. Все сказанное выше, а также достаточная простота 
языка для изучения вселяют уверенность в том, что не только 
профессиональные программисты, но и люди, не работавшие ранее 
на ЭВМ, пристрастятся к Прологу. Название Пролог (PROLOG) 
образовано из первых частей английских слов PROgramming 
и LOGic. Пролог был создан проф. А. Колмеро, который в начале 
60-х годов был привлечен к исследованиям в рамках проекта по 
методам быстрого обнаружения синтаксических ошибок в про¬ 
граммах. Эти исследования в 1963 г. привели к созданию про¬ 
граммных средств анализа естественных языков, и, в конце кон¬ 
цов, в Марсельском университете была разработана первая версия 
языка Пролог. Сначала Пролог получил известность только во 
французских академических кругах и был ориентирован на архи¬ 
тектуру французских ЭВМ. Но вскоре Прологом заинтересовалась 
фирма DEC. Для ЭВМ этой фирмы сравнительно быстро был 
реализован транслятор с Пролога и в результате Пролог прочно 
занял место в ряду коммерческих программных средств. 

В Великобритании аналогичные работы, вызвавшие большой 
интерес во всем мире, проводились проф. Р. Ковальским и кол¬ 
лективом исследователей лондонского имперского колледжа. 
Следует отметить и другие разработки: реализацию Пролога на 
DEC-10 в Эдинбургском университете, новую работу ученых 




Марсельского университета, выполненную в 1982 г., венгерскую 
версию языка, названную M -Пролог, и, конечно, Японский 
проект. 

Версии Пролога, доступные непрофессионалам, работают под 
управлением операционных систем CP/M, MSDOS и UNIX. В этой 
книге использована версия языка, разработанная Ассоциацией 
логического программирования для микроЭВМ ZX Spectrum 
фирмы Sinclair. Последователи, работающие с другими системами, 
будут испытывать незначительные трудности, поскольку осталь¬ 
ные реализации Пролога отличаются от используемой лишь 
в деталях. Хотя объем доступной оперативной памяти и ограни¬ 
чивает размеры разрабатываемых программ, в данном случае это 
не помешает конструировать довольно сложные программы. Для 
начинающих практика использования языка Пролог на Spectrum 
или аналогичной ЭВМ послужит введением в современные языки, 
ориентированные на решение задач искусственного интеллекта. 
Очевидно, что размеры программ менее важны, чем те понятия, 
которые могут быть с их помощью изучены. В любом случае 
большинство людей по мере накопления опыта работы на ЭВМ 
начнут использовать стандартный синтаксис микроПролога и 
хочется надеяться, что все они будут покорены достижениями 
логического программирования, обеспечивающего такое мощное 
программное обеспечение для персональных ЭВМ. 

Здесь не уделяется внимания изучению языка Пролог как 
такового. Отметим, что этой цели служат многие прекрасные 
книги, читатели могут узнать их названия из приведенного списка 
литературы [1—12]. В любом случае автор надеется, что читатели, 
в распоряжении которых нет компилятора Пролога, все же смогут 
усвоить основные принципы. Если Вы приобретете систему про¬ 
граммирования на языке Пролог для микроЭВМ Spectrum, руко¬ 
водства по микроПрологу для начинающих (оно кстати, входит 
в комплект вместе с программным обеспечением) Вам будет 
вполне достаточно для того, чтобы начать работу. Можно также 
рекомендовать описание микроПролога для ЭВМ Spectrum, под¬ 
готовленное в Кембридже. В заключение остановимся еще на 
одном моменте. Существует несколько специальных операций, 
доступных только для пользователей ЭВМ Spectrum, с помощью 
которых некоторые сложные вычисления можно выполнять до¬ 
вольно просто. О них речь пойдет ниже. 


2.2. ОСНОВНЫЕ ПОНЯТИЯ 

Сначала нужно установить различие между дескриптивными 
и имперстивными языками. Все, кто видел листинги программ 
в машинных кодах, знают, что, используя только листинг, почти 
невозможно определить точно, что же программа делает. Правда, 
определенные соображения все-таки можно высказать. Программа 
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в машинных кодах представляет собой список инструкций или 
команд, предписывающих ЭВМ, что делать; понять же, для чего 
эта программа предназначена, практически невозможно. Для 
того чтобы получить информацию о цели разработки программы 
и путях достижения этой цели, необходимо обратиться к доку¬ 
ментации, которая обычно не входит непосредственно в программу. 

Машинный язык представляет собой императивный язык самого 
низкого уровня. Языки более высокого уровня, такие, как Бейсик, 
по своей природе носят более описательный характер. По текстам 
программ, написанных на таких языках, легче определить, для 
чего программы предназначены, но все же и в этом случае больше 
информации дают программные комментарии и документация. 
Дескриптивные языки должны быть настолько само документиру¬ 
ющимися, насколько это возможно. В этом отношении Пролог — 
в основном дескриптивный язык, но с императивными элементами. 

Если Вас попросят рассказать об ЭВМ кому-то, кто ничего 
о них не знает, то наиболее разумно начать с того, что машина 
может делать, а не с того, как она это делает. После того, как 
первое будет усвоено, можно переходить ко второму. Точно так же 
обстоит дело и с языками программирования. Императивные 
языки, подобные Бейсику, состоят из команд, предписывающих 
ЭВМ, как решить задачу, например, выполнить оператор 
FOR X = 1 ТО 50 

и т. п. Дескриптивные языки позволяют максимально прибли¬ 
зиться к естественному языку, например, в них разрешены кон¬ 
струкции типа «Определить, кто самый богатый человек в городе?» 

Прологу наиболее адекватна последняя форма. Правда, в его 
состав входит несколько императивных конструкций, связанных 
в основном с выполнением чисто машинных операций. Например, 
команды LIST, CLEAR и OUT предназначены для рас¬ 
печатки листинга, чистки экрана и выдачи информации. Заметим, 
что такая команда, как RUN, в Прологе отсутствует. Вместо нее 
пользователям разрешено создавать базу знаний, определять 
отношения между ее элементами и формировать запросы либо 
на извлечение данных из базы, либо на генерацию новых данных. 
При обработке запросов в Прологе используется специальный 
встроенный механизм манипулирования данными, опирающийся 
на те отношения, которые определит пользователь. Поскольку 
понятие отношения является центральным в Прологе, рассмотрим 
его с привлечением ряда примеров. 

2.3. ОТНОШЕНИЯ 

Интуитивно, отношение понимается как правило, связывающее 
два объекта. Наиболее часто в нашем обиходе фигурируют отно¬ 
шения между людьми, например, высказывание «Том является- 
братом Джеймса» определяет отношение между Томом и Джейм- 



сом. Слова «является-братом» связаны дефисом, поскольку в Про¬ 
логе в качестве имени отношения может использоваться только 
одно слово. Отношения между двумя объектами, аналогичные 
приведенному выше, называются бинарными. Ниже даны при¬ 
меры еще нескольких бинарных отношений. 

1. Алекс владеет книгами. 

2. Джо любит Кейт. 

3. 25 больше 24. 

Не все реально существующие отношения являются бинар¬ 
ными. Например, отношения типа «возраст Джеймса» использует 
только один объект. Такие отношения называются унарными. 
Существуют отношения и большей арности. Например, в отноше¬ 
нии «Алан дает деньги Брайану» фигурируют три объекта. Но 
на первом этапе такие сложные отношения нами не будут исполь¬ 
зоваться. Объекты отношения в литературе известны как аргу¬ 
менты. 

В связи с этим мы можем сказать, что бинарное отношение 
характеризуется двумя аргументами, а унарное — одним. В более 
общей форме бинарное отношение можно представить в виде 
XRY, где R — имя отношения, а X и Y — его аргументы. Унар¬ 
ное отношение тогда имеет вид XR, где X — аргумент отноше¬ 
ния R. 

Заметим, что отношения не являются единственным способом 
представления знаний. Для этой цели также можно использовать 
любые типы кодов и хранить их, например, в виде числовых 
массивов или массивов строк в ЭВМ. Но поскольку данные пред¬ 
назначены для людей, необходимо уметь преобразовывать их 
в форму предложений достаточно простого языка. Средство, 
с помощью которого такое преобразование выполняется, назы¬ 
вается функцией отображения. Важно, что способ, использу¬ 
ющий отношения, позволяет очень просто перейти к обычному 
человеческому языку. Кроме того, если названия отношений вы¬ 
браны достаточно продуманно, можно написать программу так, 
что она будет напоминать текст на естественном языке и необ¬ 
ходимость в преобразовании отпадает. В этом случае программисты 
имеют возможность самостоятельно выбирать те слова, которые 
будут впоследствии входить в тексты их программ, и не связаны 
жестко ограниченным набором слов и символов, допускаемых 
ЭВМ. 

Следующая короткая программа, служащая для иллюстрации 
только что изложенных положений, без сомнения будет понятнее 
всем, вне зависимости от того, есть у них в распоряжении транс¬ 
лятор с Пролога или нет: 

Rover isa dog ; Ровер это собака 

Torn isa man ; Том это человек 

X has-a-tail if X isa dog ; X имеет-хвост, если X это собака 
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Эта программа состоит из двух утверждений, представляющих 
собой факты, и одного правила, с помощью которого она может 
генерировать другие факты. Программа написана на обычном 
разговорном языке. Исключением является лишь то, что слова, 
определяющие отношения, соединены дефисами. Ниже показано, 
как может протекать процесс работы такой программы: 


is (Rover isa dog) 

Запрос вводится пользователем 

[верно (Ровер это собака)] 


YES 

Ответ системы 

[ДА] 


all (х: х isa man) -- 

Еще одип запрос 

[определить все (X: X это человек)] 


Тот 

Ответ системы 

[Том] 


No (more) answers 

Это сообщение свидетельствует і 

[Ответов (больше) нет] 

что все ответы найдены 

is (Rover has-a-tail) 

Запрос 

[верно (Ровер имеет-хвост) ] 


YES 

Ответ 

[ДА] 


is (Tom has-a-tail) 

Запрос 

[верно (Том имеет хвост) ] 


N0 

Ответ 

[НЕТ] 



Эта программа служит для демонстрации возможностей Про¬ 
лога и практической ценности не имеет. Анализируя работу про¬ 
граммы, можно прийти к следующим выводам. Во-первых, про¬ 
грамма, обрабатывая факты, может генерировать сообщения 
YES/NO (или TRUE/FALSE) в зависимости от того, являются ли 
заданные объекты аргументами отношения. Во-вторых, она может 
осуществлять поиск значений всех тех аргументов, которые 
вместе с заданными образуют указанные отношения. Для этого 
используются так называемые несвязанные переменные, которые 
не имеют постоянных значений в программе. Конкретные значения 
связываются с этими переменными только при поиске ответа 
на запрос. 

Два последних запроса дают возможность понять, как в Про¬ 
логе производится логический вывод, позволяющий генерировать 
новые факты. Логический вывод в Прологе основан на исполь¬ 
зовании как фактов из базы данных, так и логических правил. 
В Прологе реализован классический механизм умозаключений. 
Например, из двух посылок 

«Все собаки имеют хвосты»: 

«Ровер — вто собака» 

следует заключение 

«Ровер имеет хвост». 

Этот пример может кому-то показаться довольно простым, 
но именно он позволяет понять, какие возможности открывает 
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использование Пролога в таких областях, как создание и эксплу¬ 
атация реляционных баз данных, доказательство теорем, принятие 
решений и анализ естественных языков. 

Второй тип умозаключений, осуществляемых программами, 
написанными на Прологе, является наиболее спорным. Например, 
в программе может использоваться следующая цепочка рассу¬ 
ждений. 

Из посылок 

<Всѳ собаки имеют хвосты»; 

(Том — это человек». 

делается вывод, что 
(Том не имеет хвоста». 

Последнее высказывание естественно не является истинным. 
Сделанное заключение логически не следует из посылок. Даже 
если доказать, что высказывание 
(Том — это человек» 

позволяет заключить, что 
(Том не является собакой», 
то из этого не следует 
(Том не имеет хвоста». 

Правда, в соответствии е внутренней логикой программы 
такого рода умозаключения могут быть разрешены. Например, 
будем считать, что в программу включены все возможные знания 
об объектах. Тогда, поскольку нет никакой информации о том, 
что Том — это собака и известно, что только собаки имеют хвосты, 
можно сделать вывод 
(Том не имеет хвоста» 

На практике это не должно привести к сложностям, но знать 
об этом необходимо, поскольку правило «неудача при доказатель¬ 
стве утверждения ведет к тому, что истинным считается отрица¬ 
ние этого утверждения» используется для реализации логического 
оператора «not» *. 

К более детальному разговору о логических принципах мы 
еще вернемся, но все же еще несколько слов об этом стоит сказать 
сейчас. Для нас очевидно, что если Бен — человек, то он не 
собака, но в программе нет утверждений, на основе которых 
это заключение может быть получено. Утверждение «Том — не 
собака» было бы справедливым в том случае, если бы в программе 
имелось правило 

(Нет человека, который был бы собакой». 


* Кратко этот принцип называется (Отрицание по неудаче». — Прим, пер. 
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Аналогично утверждение 

«X не имеет хвоста» 

не следует из двух следующих утверждений: 

«Все собаки имеют хвосты»; 

«X не является собакой». 

Это можно легко понять, взяв в качестве значения X лошадь 
или кошку. 

В заключение отметим, что такого рода ошибочные логические 
выводы надо уметь предвидеть и в случае необходимости не до¬ 
пускать. 

2.4. СИНТАКСИС ПРЕДЛОЖЕНИЙ ПРОЛОГА 

Синтаксис, как известно, — это часть грамматики, в которой 
анализируется правильность расположения слов в предложении. 
Стандартный синтаксис Пролога представляет определенные труд¬ 
ности для начинающих и не может быть изучен так же, как син¬ 
таксис обычного языка. По этой причине целесообразно исполь¬ 
зовать более близкую человеку систему, которая переводит пред¬ 
ложения обычного естественного языка в предложения стандарт¬ 
ного Пролога. На ЭВМ типа Spectrum такая система называется 
SIMPLE. Ниже приведены некоторые типы предложений, которые 
допускаются системой SIMPLE: 

Простое предложение Тош Isa man 

[Том это человек] 

Условное предложение Jim owns Spot if Spot white 

[Джим владеет Спотом, если Спот 
белый ] 

Конъюнкция (and) X isa black-dog if isa dog and X 

black 

[X это черная-собака, если X это 
собака и X черная] 

Дизъюнкция (or) Y isa animal if (either Y isa dog or 

Y isa cat) • 

[Y это животное если (Y это собака 
или Y это кошка)] 

Отрицание (not) Joe owns X if X isa dog and not X 

white 

[Джо владеет X, если X это собака 
и X не белая] 

isa И X isall (Y: Joe owns Y) 

[X существует (Y: Джо владеет Y)] 

forall (forall Joe owns X then X black) 

[(для всех: если Джо владеет X, то 
X черная)] 

Существуют некоторые ограничения, накладываемые на ис¬ 
пользование трех последних конструкций. В основном это ка¬ 
сается условий isall и forall. В связи с этим основное внимание 
сначала будет уделено первым пяти конструкциям. Система 
SIMPLE после выдачи команды listall преобразует пять первых 
предложений к виду 
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Tom isa man 
X isa black-dog if 
X isa dog and 
X black 
X isa animal if 

(either X isa dog or X isa cat) 

Jim owns Spot if 
Spot white 
Joe owns X if 

X isa dog and 
not X white 

Отметим некоторые характерные черты приведенного выше 
текста. 

1. Строки текста не пронумерованы. 

2. Строки расположены не в том порядке, в котором они 
вводились в ЭВМ. В Прологе принято располагать строки, опи¬ 
сывающие одно и то же отношение, рядом. Первым было введено 
предложение, характеризующее отношение «isa»; поэтому далее 
следуют все предложения, в которых первым употребляется 
именно это отношение, а затем идут предложения, связанные 
с отношением «owns». Кроме того, в системе формируются относи¬ 
тельные номера предложений, описывающих одно и то же отно¬ 
шение. Например, предложение «Тот isa man» имеет номер 1, 
поскольку оно является первым, описывающим отношение «isa». 

3. В четвертом предложении было использовано имя Y, а после 
преобразования оно заменено на X. Это может смутить начина¬ 
ющих программистов, особенно если до этого они работали на 
Бейсике. В Прологе буквы х, у и ъ резервируются для использо¬ 
вания в качестве имен переменных. Напомним, что такие пере¬ 
менные, называемые несвязанными, не принимают в программе 
конкретных значений до начала обработки запроса. Пролог всегда 
назначает переменным, входящим в предложение, имена в сле¬ 
дующей последовательности: X, Y, Z, х, у, ъ, XI, Х2, ХЗ, хі, х2 
и т. д. Для того чтобы у программистов не возникало лишних 
вопросов, рекомендуем им использовать имена переменных строго 
в указанном порядке. 

4. Весьма важно употребление круглых скобок в предложе¬ 
ниях типа 

(either isa dog or X isa cat). 

Использование скобок делает процесс ввода предложений с более 
чем одним or (или) неудобным. Например, возникают конструк¬ 
ции вида 

(either X isa dog or (either X isa cat or X isa rat)). 
Операция or может быть реализована разбивкой одного утвер¬ 
ждения с несколькими or на элементарные утверждения, каждое 
из которых описывает только одно условие. Утверждение с боль¬ 
шим числом условий действительно следует разбивать на более 
мелкие. 
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5. Система программирования Пролог поддерживает словарь, 
содержащий информацию обо всех используемых отношениях. 
Чтобы получить такую информацию на ЭВМ типа Spectrum, доста¬ 
точно напечатать либо list diet, либо all (х : х diet). Можно также 
определить число утверждений, связанных с каждым отношением; 
для этого следует использовать (all х : х diet and х defined). 
Если необходимо просмотреть все утверждения, связанные с ка¬ 
ким-то отношением, можно использовать команду list R, где R — 
имя отношения. Всю программу можно уничтожить с помощью 
команды kill all, а одно отношение — с помощью команды kill R. 
Для уничтожения одного утверждения следует использовать 
команду delete RN, где N — номер утверждения в отношении. Для 
модификации отношения необходимо ввести команду edit RN и обыч¬ 
ным путем, подводя курсор в нужное место, внести исправления. 

6. Расположение текста программы (листинга) при его выводе 
на экран организовано следующим образом. После if и and печать 
продолжается на следующей строке с отступом в пять позиций. 
Это приводит к тому, что различные предикаты, относящиеся 
к одному утверждению, размещаются на разных строках, что, 
в свою очередь, позволяет подчеркнуть логическую структуру 
каждого утверждения. В сравнительно редко встречающейся 
ситуации, когда длина строки превышает допустимую, возможен 
перенос на следующую строку. Перенесенной части строки всегда 
предшествуют два пробела. Отметим также, что разделять слова 
на части (одна на одной строке, другая — на другой) запрещено. 
В заключение отметим, что утверждения Пролога могут распола¬ 
гаться пользователем и на одной строке, а сама система в даль¬ 
нейшем произведет их перераспределение по строкам. 

Ниже приведен текст программы на Прологе в стандартной 
форме, полученный в результате выполнения команды LIST ALL 
(не следует путать с текстом, полученным после выполнения 
команды list all в системе SIMPLE): 

((owns Jim Spot) 

(white Spot)) 

((owns Joe X) 

(isa X dog) 

(NOT white X)) 

((isa Tom man)) 

((isa X black-dog) 

(isa X dog) 

(black X)) 

((isa X animal) 

(OR ((isa X dog)) ((isa X cat)))) 

((infix isa)) 

((infix owns)) 

((postfix black)) 

((postfix white)) 

((diet isa)) 

((diet owns)) 

&. 
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Такой текст несколько труднее для восприятия, чем текст, 
производимый системой SIMPLE. Но следует отметить, что по 
мере накопления опыта большинство пользователей предпочтет 
все-таки стандартный синтаксис. Это произойдет прежде всего 
потому, что система SIMPLE занимает объем оперативной памяти, 
равный 16К, а такого объема памяти вполне достаточно для 
размещения большой программы на Прологе. 

2.В. МОДУЛЬНОЕ ПРОГРАММИРОВАНИЕ 

Преимущество системы программирования микроПролог за¬ 
ключается в ее модульности. Например, программа SIMPLE, 
входящая в систему программирования микроПролог, состоит 
из трех модулей: program-mod, errmes-mod, query-mod *. Первый 
модуль предназначен для ввода программы, второй — для про¬ 
ведения синтаксического анализа и выдачи сообщений об ошибках 
и третий — для обработки запроса программой, которая была 
сконструирована. Эти модули занимают объемы 1 К, 9К и 6К 
оперативной памяти соответственно. После того, как разработка 
программы полностью закончена, модуль program-mod можно 
удалить из оперативной памяти, используя для этого команду 
KILL program-mod. Освобожденное пространство можно исполь¬ 
зовать для обработки запросов. Ничто не может повергнуть 
в большую ярость, чем такая ситуация, когда программист, 
затратив много времени на разработку программы, в ответ на 
первый запрос получает сообщение: «нет свободного пространства 
в оперативной памяти». Удаление модуля program-mod — один 
из возможных путей решения этой проблемы. Кроме того, поль¬ 
зователи могут прийти к заключению, что в одном или нескольких 
модулях существуют такие средства, которые им никогда не пона¬ 
добятся. В этом случае разрешается разрабатывать свои собствен¬ 
ные модули, реализующие как имеющиеся в системе, так и до¬ 
полнительные возможности. Это позволит создавать эффективные 
системы, ориентированные на решения конкретных задач. По¬ 
дробное описание всех системных модулей читатель может найти 
в справочном руководстве по микроПрологу. 

2.6. ИНФОРМАЦИЯ ДЛЯ ПОЛЬЗОВАТЕЛЕЙ ЭВМ SPECTRUM 

Версия микроПролога, реализованная на ЭВМ Spectrum, 
содержит около 50 программ. В зависимости от выполняемых 
функций эти программы делятся на группы. Их полное описание 
дано в справочном руководстве. Здесь же хотелось обратить 
внимание на ряд команд, касающихся операций ввода-вывода 


* Program — программа, errmess — сокращение от error messages — со¬ 
общения об ошибках, query — запрос. — Прим. ред. 



на терминал. Использование этих команд позволит пользователям 
легко управлять работой ЭВМ. 

CLS N. Эта команда очищает экран, помещает в левый верхний 
угол символ приглашения & и окрашивает экран в цвет с ко¬ 
дом N, где N — число в интервале от 0 до 7. 

CLOSE (имя файла). Необходимо выполнять эту команду 
перед любой попыткой загрузить файл или сохранить файл в слу¬ 
чае появления ошибки. Использование этой команды позволяет 
надеяться, что пользователь запомнит точное имя содержащего 
его программу файла, которую он хочет либо загрузить в опера¬ 
тивную память, либо сохранить. 

BREAK (Остановка). Чтобы реализовать эту команду, необ¬ 
ходимо нажать две клавиши— SYMBOL SHIFT и SPACE. Резуль¬ 
татом является остановка выполнения программы. После этого 
на терминал будет выдано сообщение об ошибке, но его следует 
игнорировать. 

SCROLLING (Просмотр). Для приостановки просматривания 
(листания) длинной программы используйте клавишу STOP (или 
клавиши SYMBOL SHIFT и А). Чтобы возобновить просмотр, 
достаточно нажать те же самые клавиши. Фактически эта команда 
инициирует прерывание, которое временно задерживает выпол¬ 
нение любой программы. 

IN/OUT (ввод-вывод). Команда 

? ((РІО М N)) 

осуществляет пересылку значения N в порт с номером М. Команда 
? ((РІО М X) (РР X)) 

считывает значение из порта М и выводит его на экран дисплея *. 

Предоставляемая память. Команда 

? ((SPACE X) (РР X)) 

печатает объем оставшейся в распоряжении пользователя памяти 
в килобайтах. Кроме того, выполнение этой команды приводит 
к очищению памяти от данных, оставшихся от обработки преды¬ 
дущих запросов **. 


2.7. ЗАПРОСЫ 

Извлекать информацию из программы можно с помощью 
различных по форме запросов. Некоторые из них будут показаны 
ниже и адресованы следующей короткой программе: 


* Наряду с использованием словосочетания «выводит на экран дисплея» 
в дальнейшем будет также использован термин «печатает». — Прим, пер. 

** Отметим, что две последние команды удовлетворяют требованиям стандарт¬ 
ного синтаксиса языка Пролог и в связи с этим могут быть использованы в про¬ 
граммах, написанных на этом языке. — Прим. пер. 



Flash isa dog 
Rover isa dog 
Bootsie isa cat 
Star isa horse 
Flash black 
Bootsie brown 
Rover red 
Star white 
X house-trained if 
(either X isa dog 
or X isa cat) 


; Флэш это собака 
i Ровер это собака 
; Бутси это кошка 
; Стар это лошадь 
; Флэш черная 
; Бутси коричневая 
; Ревер рыжая 
; Стар белая 

; X домашнее-животное, если 
; (либо X это собака или X 
это кошка) 


X isa animal if 

(either X isa horse 
or X house-trained) 
Tom owns X if 
X isa dog and 
not X black 
Kate owns X if 
(either X black 
or X isa horse) 


; X это животное, если 
; (либо X это лошадь 
; или X домашнее-животное) 

; Том владеет X, если 
; X это собака и 
; X не черного-цвета 
; Кейт владеет X, если 
; (либо X черного-цвета или X это 
; лошадь) 


Во-первых, можно проверить, имеется ли в программе тот 
или иной факт. Например, на запросе 
is (Rover red) 

[верно (Ровер рыжая) ] 


должен быть получен ответ 


В более общем случае можно проверить, вущевтвуют ли зна¬ 
чения аргументов, делающих отношение истинным: 

is (х isa dog) 
is (Star isa x) 
is (Spot isa x) 

На первый запрос будет получен ответ YES, поскольку X 
может принять значение, делающее отношение истинным. Второй 
и третий запросы позволяют установить, существуют ли в про¬ 
грамме отношения tisa», в которых Star и Spot являются первыми 
аргументами. Результатами обработки этих запросов являются 
YES и N0 соответственно. 

Приведем еще несколько примеров запросов 

all (х: х isa dog) * 

all (х: Kate owns x) 

all (x: x owns y) 

all (x y: x owns y) 

all (x у z: x owns у and у isa z) 


Определить все (x: x это собака). — Прим. пер. 





С их помощью можно определить клички всех собак; клички 
всех животных, которыми владеет Кейт; имена веех тех людей, 
которые кем-нибудь владеют; то же самое, что и в предыдущем 
запросе, и, кроме того, клички всех животных, которыми кто- 
нибудь владеет; то же самое, что и в предыдущем запросе, но еще 
и виды животных. 

Найти только одно значение аргумента можно, например, так: 
one (х: х house-trained) 

[определить одно (х: х домашнее животное)] 

Flash 
[Флэш] 
тоге? (у/п) у 
[еще? (да/нет) да] 

Rover 
[Ровер ] 
тоге? (у/п) п 
[еще? (да/нет) нет] 

&. 

Если требуется дополнительно найти другое значение аргу¬ 
мента, пользователь должен ответить у (да). 

Заметим, что особенно внимательным надо быть при исполь¬ 
зовании в предложениях и запросах оператора «not». В предложе¬ 
нии 

Tom owns х if х isa dog and not x black 
условие состоит из двух частей, причем обратите внимание на 
то, что оператор «not» содержится во второй. Можно попробовать 
с(]юрмулировать предложение так: 

Tom owns х if not х black 

стараясь определить то, что Том является владельцем всех живот¬ 
ных нечерного цвета. Но таким путем это делать нельзя. Если такое 
предложение все же есть, то Том не будет считаться владельцем 
кого бы то ни было. Аналогично обстоит дело с запросами. 
Рассмотрим запрос 

all (х: not х isa dog) 

На него система всегда будет отвечать N0. Но, например, на 
запрос 

all (х: х isa animal and not x isa dog) 
будут получены два ответа: Star (Стар) и Bootsie (Бутси). 


Составьте запросы, позволяющие определить: 

а) всех, кто владеет животными; 

б) всех, кто владеет животными небелого цвета; 
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в) того, кто владеет Бутси; 

г) клички тех животных, которыми кто-то владеет, и имена 
владельцев. 


Упражнение 2.2 

Что будет получено в ответ на следующие запросы: 

а) is not Rover red? 

б) all (x: owns x and not x black); 

в) all (x: x owns у and not у black). 


Упражнение 2.3 

Напишите предложение, описывающее животных светлого 
(нечерного) цвета, а затем составьте запрос, позволяющий опре¬ 
делить всех тех нечерных животных, которые не являются 
лошадьми. 

Логическая дедукция используется во многих областях искус¬ 
ственного интеллекта. Рассмотрим запрос: определить, какие 
животные не являются домашними. Поскольку этот запрос не очень 
сложен, человек способен ответить на него, просто просмотрев 
текст программы. При решении реальных задач возникают ситуа¬ 
ции, когда человеческих возможностей может не хватить. Тогда 
приходится прибегать либо к помощи карандаша и бумаги, либо 
к помощи ЭВМ. Отметим те факторы, которые делают извлечение 
необходимой информации затруднительным: 

огромное число рассматриваемых данных; 

большое число не относящихся к решаемой задаче данных; 

такое большое число различных путей, возникающих в процессе 
решения задачи, что обычных человеческих способностей недоста¬ 
точно, чтобы ориентироваться в них. 

Попробуйте, не пользуясь никакими дополнительными инстру¬ 
ментами, кроме своей головы, решить следующую задачу. Бутси — 
коричневая кошка, Корни — черная кошка и Мактэвити — рыжая 
кошка. Флэш, Ровер и Спот — собаки; Ровер — рыжая, а Спот — 
белая. Все животные, которыми владеют Том и Кейт, имеют 
родословные. Том владеет всеми черными и коричневыми 
животными, а Кейт владеет всеми собаками небелого цвета, 
которые не являются собственностью Тома. Алан владеет Мак¬ 
тэвити, если Кейт не владеет Бутси и если Спот не имеет родо¬ 
словной. Флэш — пятнистая собака. Определить, какие живот¬ 
ные не имеют хозяев? 

Использование программы, листинг которой приведен ниже, 
позволяет немедленно получить ответ на запрос all (х: х isa 
animal and not у owns x): 
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Flash brindled 
Flash isa dog 
Rover isa dog 
Spot isa dog 
Korky isa cat 
Bootsie isa cat 
McTavity isa cat 
X isa animal if 

(either X isa dog or X isa cat) 

Spot white 
Rover red 
Korky black 
Bootsie brown 
McTavity ginger 
Tom owns X if 

X isa animal and 
(either X black or X brown) 

Kate owns X if 

X isa dog and 
not X white and 
not Tom owns X 
Alan owns McTavity if 
McTavity isa cat and 
not Kate owns Bootsie and 
not Spot has-pedigree 
X has-pedigree if 

(either Tom owns X or Kate owns X) 


Если читатель все же справился с этой работой сам, он должен 
получить ответ* «Спот». Методы принятия решений, используемые 
даже в такой простой задаче, как эта, распространяются на такие 
области искусственного интеллекта, как игры, решение задач, 
доказательство теорем, а также проектирование и эксплуатацию 
баз данных. 


2.8. СРЕДСТВА, ПОЗВОЛЯЮЩИЕ РАБОТАТЬ 
С ЧИСЛОВОЙ ИНФОРМАЦИЕЙ 

Следует предупредить, что микроПролог специально не ориен¬ 
тирован на работу в числовой информацией. У него другие области 
применения. Однако ряд имеющихся в Прологе встроенных ариф¬ 
метических функций чревычайно полезен практически во всех 
приложениях. Для вычисления значений арифметических выраже¬ 
ний предназначен специализированный модуль EXPTRAN. В слу¬ 
чае необходимости этот модуль должен быть загружен в оператив¬ 
ную память в дополнение к другим используемым в данный момент 
модулям. Существует также ряд включенных в стандартный 
синтаксис языка арифметических операций, которвіе можно ис¬ 
пользовать без подзагрузки дополнительных модулей. К ним отно¬ 
сятся SUM, TIMES, LESS, INT и SIGN. Все они вместе с другими 
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отношениями и командами могут быть использованы в программах, 
написанных на микроПрологе. Ниже дано описание этих арифмети¬ 
ческих операций, представленных в форме отношений. 

SUM. Это отношение имеет вид SUM (X Y Z). Его можно 
интерпретировать как высказывание, которое истинно (принимает 
значение TRUE), если сумма X и Y равна Z, и ложно (FALSE) — 
во всех остальных случаях. Допускается использование целых 
чисел и чисел с плавающей запятой. 

Например, отношения SUM (4 5 9) и SUM (0.1—1.2—1.1) 
истинны, а отношения SUM (5 7 22) и SUM (7.2 5.2 6.8) ложны. 
Покажем, как можно использовать отношение SUM. 

1. Для проверки суммы в правил программы или запросе 

Пусть имеется правило 

X valid if SUM (25 5 Y) 

В ответ На запрос is X valid будет получено YES в случае, 
если Y == 30, и значение N0 во всех остальных случаях. 

2. Для сложения двух чисел 

В результате выполнения SUM (3 5 X) переменной X будет 
присвоено значение 8, а в результате вычисления SUM (9 — 2 X) — 
значение 7. 

3. Для определения разности двух чисел 

В результате вычисления SUM (X 3 7) X получает значение 4, 
а вычисление SUM (3 X — 5) приведет к тому, что X будет равно 
— 8 . 

TIMES. Это отношение можно использовать для умножения 
двух чисел, деления двух чисел и для проверки результата, полу¬ 
чаемого при умножении двух чисел. Отношение представляется 
в виде 

TIMES (X Y Z) 

и принимает значение TRUE, если произведение X и Y равно Z 
и FALSE — во всех остальных случаях. 

1. Проверка произведения 

В результате проверки выражения TIMES (X 2 6) будет полу¬ 
чен ответ TRUE, если X равен 3. 

TIMES (4 7 X) дает TRUE, если X равен 28. 

2. Умножение 

В результате вычисления TIMES (4 5 X) X получит значение 

20 . 

3. Деление 

В результате вычисления TIMES (X 6 42) X получит значение 
7. Вычисление ТІМЕС (3 X 39) приводит к тому, что X примет 
значение 13. 

LESS. В этом отношении используютвя два аргумента. 
LESS (X Y) примет значение TRUE, если X строго меньше, чем Y. 
Например, вычисление LESS (5 6) даст TRUE, в то время как 
вычисление LESS (5 5) — FALSE. Аргументами этого отношения 
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также могут быть символы. Тогда сравниваются их коды. Напри¬ 
мер, ответом на запросы 

is LESS (А В) и is LESS (AY AZ) 
будет YES, а на запросы 

is LESS (AD АС) и is LESS (& %) 

будет NO. 

I NT. Это отношение используется для определения ближай¬ 
шего к данному числу целого. Из двух возможных результатов 
округления выбирается тот, который ближе к нулю. Например, 
вычисление 

which (х: ШТ (3.6 X)) 
приносит 3, а вычисление 

which (х: ШТ (—3.9 X)) 

дает —3. 

Первым аргументом отношения должно всегда быть либо 
число, либо выражение, результатом вычисления которого яв¬ 
ляется число. Отношение ШТ можно использовать и для того, что¬ 
бы проверить, является ли заданное число целым. 

Например, ответом на запрос 

is (5 ШТ) 

будет YES. 

SIGN. Отношение имеет вид SIGN (X Y). В результате вычис¬ 
ления этого отношения Y будет присвоено одно из значений — 
1,0 или—1в зависимости от того, положительно, равно 0 или 
отрицательно X. Первым аргументом этого отношения всегда 
должно быть конкретное число. В результате вычисления SIGN 
(—2.5 Y) Y присваивается значение, равное —1. В результате 
выполнения SIGN (2.5 Y) Y будет равно 1. 


Упражнение 2.4 

Определить ответы, которые 
следующие запросы: 

a) all (х: SUM (4 5 х)); 

в) all (х: SUM (5 X 2); 
д) all (х: TIMES (4 х 8)); 
ж) is (SUM (3 — 8 X)); 


будет давать система Пролог на 

б) all (х: SUM (х — 1 2)); 

г) all (х: TIMES (3 6 х)); 
е) is (SUM (5 6 7)); 
з) объяснить последний ответ. 


Упражнение 2.5 

Определить ответы на следующие запросы: 
a) all (х: SIGN (2 х)); б) all (х: ШТ (—4.9 х)); 

в) all (х: ШТ (хі)); г) all (х: SIGN (х 0)); 

д) объяснить ответы на запросы (в) и (г). 
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2.9. ОТНОШЕНИЯ, ЗАДАВАЕМЫЕ ПОЛЬЗОВАТЕЛЕМ 

В Прологе разрешено использовать встроенные отношения для 
конструирования других полностью определяемых пользователем 
отношений. Например, можно задать отношение «меньше или 
равно» следующим образом: 

х leq х 

х leq у 

if х LESS у 

Первая строка этого определения используется для констатации 
того факта, что любое число меньше или равно самому себе. Во 
второй строке утверждается, что х меньше или равно у, если х 
строго меньше у. В запросах это отношение можно использовать 
так: , 

is (2 leq 5) 
is (2 leq 2) 

Ответом на оба эти запроса будет YES. 

Упражнение 2.6 

Определите отношение «больше или равно», назвав его geq. 

Упражнение 2.7 

Прокомментируйте следующие запросы: 

a) is (2 leq х); б) is (х leq 2); в) all (х: х leq 5). 

Запросы, аналогичные is (2 leq 5), не имеют особого смысла, 
поскольку ответ известен заранее. Но следует отметить, что неко¬ 
торые очень важные отношения можно определить, используя 
отношение leq. Предположим, необходимо сформулировать отноше¬ 
ние in, определяющее числа, во-первых, принадлежащие заданному 
интервалу и, во-вторых, отстоящие друг от друга на одно и то же 
значение, и использовать его для генерации и проверки правиль¬ 
ности этих чисел. 

Первая предварительная попытка может выглядеть так: 

х in (у z) if 

у leq х and 
х leq z 

Здесь обозначение (у z) использовано для того, чтобы показать, 
что нижней границей интервала является у, а верхней — z. 
Интервал, в который включены как нижняя, так и верхняя гра¬ 
ницы, называется отрезком или закрытым интервалом. Открытым 
называется интервал, которому не принадлежат либо обе его гра¬ 
ницы, либо одна из них. 



Рассмотрим запроса 


is (5 in (2 9)) 
is (3 in (6 9)) 

Оба эти запроса правильны. Ответами на них являются YES 
и N0 соответственно. Таким образом, определенное выше отноше¬ 
ние можно использовать для проверки принадлежности заданного 
числа заданному интервалу. Но обработка запросов вида 
all (х: х in (4 6)) 

приводит к ошибкам. Попробуем объяснить, почему. Объяснение 
надо искать в анализе последних двух заданий упражнения 2.5. 
Наш пример приводит к необходимости сначала выполнить опера¬ 
цию LESS (4 х). Но ее выполнить невозможно, поскольку значение 
х неизвестно. 

Фактически заданному интервалу принадлежит очень много 
чисел: 4.0, 4.1, 4.23, 4.2345 и т. д., т. е. для того чтобы четко 
определить числа, включаемые в интервал, необходимо задать 
еще и разность между двумя любыми последовательными значе¬ 
ниями, принадлежащими интервалу. Принимая это во внимание, 
попробуем записать программу так: 

Xin(XY)if 
XfeqY 
X in (Y Z) if 

SUM (Y lx) and 
x leq Z and 
X in (x Z) 

Обратите внимание на использование в этой программе больших и 
малых букв. 

Первое правило программы гарантирует, что нижняя граница 
всегда будет меньше верхней, и делает нижнюю границу первым 
искомым числом. Второе правило представляет собой механизм 
генерации остальных чисел, входящих в интервал. Этот механизм 
обеспечивает добавление 1 к нижней границе, проверяет, меньше 
или равен результат верхней границе, и, наконец, устанавливает, 
принадлежит ли X только что определенному интервалу. Таким 
образом будет формироваться возрастающая последовательность 
чисел с шагом, равным единице. 

Например, в ответ на запрос 

all (х: х in (3 7)) 

будут получены все целые в интервале от 3 до 7. 

Аналогично, в ответ на запрос 

all (х: х in (2.5 5.5)) 

будет получена следующая последовательность чисел: 

2.5, 3.5, 4.5, 5.5. 
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Для того чтобы установить любой нужный Вам шаг, необходимо 
изменить отношение SUM во втором правиле следующим образом: 
SUM (Y п х) 

где п — желаемое значение шага. Тогда для генерации последова¬ 
тельности с шагом, например, 0.5 необходимо использовать 
SUM (Y 0.5 х) 

Заметим, что во втором правиле отношение in определяется 
через самое себя. Такие определения называются рекурсивными. 
Рекурсия допускается в таких языках программирования высокого 
уровня, как Алгол и Паскаль. В этих языках использование рекур¬ 
сии сводится к вызову процедурами самих себя. В Прологе исполь¬ 
зование рекурсии позволяет добиться ясности и в то же время 
лаконичности при конструировании правил. Рекурсия довольно 
удобна для задания числовых отношений, но может быть использо¬ 
вана и в других случаях, например, для обработки списков. Но 
этим вопросом мы займемся позднее. 

Упражнение 2.8 

Используя отношение leq, определить отношение сболыие чем», 
обозначив его gt. 

Упражнение 2.9 

а. Используя приведенное выше отношение in, определить, 
что будет напечатано в ответ на запрос 

all (х: х in (0 п)) 

б. Сформировать запрос для получения всех целых чисел в 
диапазоне от 1 до 100. 

в. Переписать второе правило в определении отношения in 
таким образом, чтобы обеспечить генерацию последовательности 
0, 0.1, 0.2 и т. д. 

г. Модифицировать отношение in таким образом, чтобы обеспе¬ 
чить получение чисел в интервале (X Y), не включая в него верх¬ 
ней границы Y. 

д. Модифицировать определение отношения in для получения 
убывающей последовательности чисел. 

Отношение in можно использовать по-разному. Например, 
с его помощью можно определить все делители заданного числа. 
Это может быть сделано так: 

all (х у: х in (2 28) and у in (2 28) and TIMES (x у 28)) 

В ответ на такой запрос будет напечатано 
2 14 

4 7 

7 1 

14 2 
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Для того чтобы устранить повторения, перепишем запрос 
иначе: 

all (х у: х in (2 28) and у in (2 28) and х LESS у and TIMES (x 
У 28)) 

Можно оформить процесс получения делителей в виде отдельного 
отношения: 

(XY) factor Z if 
X in (2 Z) and 
Y in (2 Z) and 
X LESS Y and 
TIMES (X YZ) 

2.10. ОТНОШЕНИЯ, СЛУЖАЩИЕ ДЛЯ ВВОДА ДАННЫХ 

Знакомые с Бейсиком наверняка знают предназначенные для 
ввода данных операторы этого языка, такие, как INPUT X или 
INPUT «ваше имя»; N$>. С их помощью программа запрашивает 
у пользователя значение арифметической или символьной пере¬ 
менной. Полностью аналогичных средств в Прологе, естественно 
нет. Но в нем предусмотрено специальное отношение is-told, позво¬ 
ляющее запрашивать у пользователей ту или иную информацию. 
Это отношение расположено в файле TOLD, который можно загру¬ 
зить в оперативную память с помощью команды LOAD TOLD 
(все это справедливо для микроПролога ЭВМ Spectrum). Модуль, 
реализующий функции этого отношения, называется told-mod 
и занимает 1К. 

Предположим, что в программе присутствует следующее отно¬ 
шение: 

X known if 

(х name) is-told. 

Следующий диалог пользователя и ЭВМ показывает, как такое 
отношение можно использовать: 

& all (х: х known) ; Запрос пользователя 

(определить все (х: х известно)] 

X паше ? ans Тош ; Вопрос системы и ответ пользователя 

[имя X ? ответ Том] 

Тош ; Ответ системы 

[Том] 

X паше ? just Alan ; Вопрос системы и ответ пользователя 

[имя X ? последний ответ Алан] 

Alan ; Ответ системы 

[Алан] 

No (more) answers ; Конец диалога 

[Ответов (больше) нет] 

Если данный ответ пользователя является последним, то он должен 
сопроводить его словом just. Кроме того, пользователь может 
ответить на вопрос просто по. 
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Другим способом использования отношения is-told являются 
запросы, порождающие вопросы, на которые пользователь должен 
ответить «да» или «нет». Например, 

& is (Sam known) 

Sam name ? yes 
YES 

& is (Ted known) 

Ted name ? no 
NO 
&. 

В предыдущем примере система лишь повторяла сообщения 
пользователя, которые, впрочем, тоже имели небольшое практиче¬ 
ское значение, т. е. предыдущий пример использовался только для 
демонстрации чиіателям правил работы с отношением is-told. Но на 
практике это отношение весьма полезно особенно в двух следую¬ 
щих случаях: 

is-told может быть использовано при определении другого 
отношения; тогда Пролог-система будет запрашивать данные у 
пользователя для того, чтобы проверить какой-нибудь факт или 
получить информацию; 

is-told может быть использовано для включения новых фактов 
в базу данных; другими словами, Пролог-система будет добавлять 
новые строки в программу пользователя. 

Кроме того, допустимо уничтожение строк, т. е. утверждений 
программы. Так что можно создавать программы, которые в про¬ 
цессе работы будут изменять самих себя, реагируя таким образом 
на сообщения пользователей. 

Рассмотрим программу, анализ которой позволит понять, как 
is-told используется для определения отношения older: 

Alan aged 15 
Bill aged 42 
Colin aged 28 
X older Y if 

X aged Z and 
(Y aged x)is-told and 
x LESS Z 

Ниже приведен диалог между ЭВМ, выполняющей эту про¬ 
грамму, и пользователем: 
all (Colin is older than x: Colin older x) 

[определить все (Колин старше чем х: Колин старше х)1 

X aged Y ? ans Dave 20 

[X имеет возраст Y? ответ Дейв 20] 

Colin is older than Dave 
[Колин старше чем Дейв I 
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X aged Y ? ans Eric 44 

[X имеет возраст Y? ответ Эрик 44] 

X aged Y ? just Fred 22 

[X имеет возраст Y? только Фред 22] 

Colin is older than Fred 
[Колин старше чем Фред] 

No (more) answers 
[Ответов (больше) нет! 

ГТри обмене вопросами и ответами Пролог-система просит 
пользователя сообщить ей чье-нибудь имя и возраст: X aged Y ? 
Если Colin старше, то печатается соответствующее сообщение. 
Затем запрашиваются новое имя и возраст. Так продолжается 
до тех пор, пока пользователь не захочет прекратить диалог, 
введя по или just. 

Можно было бы сформулировать запрос так: 

all (х: Colin older х) 

Тогда печатались бы только введенные пользователем имена тех, 
кто моложе, чем Колин. В связи с этим заметим, что любые кон¬ 
станты, такие, как «Colin is older than», можно вводить в текст 
запроса. Такого рода константы придадут диалогу между ЭВМ 
и пользователем более естественную форму. Никакого влияния 
на процесс получения ответа на запрос они не оказывают. 

Программы, аналогичные приведенной выше, позволяют сопо¬ 
ставлять информацию, взятую из базы данных, с введенными поль¬ 
зователем данными. 

Отношение is-told используется также для того, чтобы дать 
возможность пользователям вносить новые факты в базу данных, 
одновременно проводя сравнение этих новых фактов с уже сущест¬ 
вующими. 

Ниже приведена новая версия отношения older. 

X older Y if 

X aged Z and 
(Y aged x) is-told and 
x LESS Z and 
(Y aged x) add 

Терм (Y aged x) add позволяет вносить в базу данных новую 
информацию, полученную системой от пользователя. Например, 
в результате диалога: 

all (Colin is older than x: Colin older x) 

[определить все (Колин старше чем х: Колин старше х) ] 

X aged Y ? ans Том 11 

[X имеет возраст Y ? ответ Том 11] 

Colin is older than Tom 



[Колин старше чем Томі 
X aged Y Р ans Sain 42 
[X имеет возраст Y ? ответ Сэм 42] 

X aged Y ? no 

[X имеет возраст Y ? нет] 

No (more) answers 
[Ответов (больше) нет] 

в базу данных будет добавлена только информация о возрасте 
Тома. Попробуйте объяснить, почему данные о возрасте Сэма 
в базу не попадут? 

Упражнение 2.10 

а. Объясните, по какой причине данные о людях старше Ко¬ 
лина, полученные в ответ на вопросы, выдаваемые системой поль¬ 
зователю, в базу данных на заносятся? 

б. Измените правило, описывающее отношение older так, чтобы 
любые данные о возрасте того или иного человека записывались 
в базу данных независимо от того, старше он кого-нибудь или нет. 
Выполните упражнение 2.10 перед тем, как работать g материалом 
книги дальше. 

В определении отношения older условие х LESS Z предшест¬ 
вует терму (Y aged х) add. Если условие х LESS Z ложно, то 
программа считает текущую попытку интерпретации неудачной 
и завершает ее. Поэтому действия, связанные G (Y aged х) add, 
не выполняются. 

Для того чтобы новая информация всегда заносилась в базу 
данных, необходимо два последних терма отношения older поме¬ 
нять местами. Тогда отношение будет иметь вид 

X older Y if 

(Y aged x) is-told and 
(Y aged x) add and 
X LESS Z 

Строки можно удалять из отношения так же легко, как и добавлять 
их. Как известно, модификация информации сводится к добавле¬ 
нию новых данных и удалению старых. 

Следующая программа позволяет модифицировать саму себя: 

Alan aged IS 
ВШ aged 42 
Colin aged 28 
X older Y if 

X aged Z and 
(Y aged x) is-told and 
(Y aged x) add and 
(Y aged y) delete and 
x LESS Z 



Ниже приведен протокол ее работы: 
all (Colin is older than x: Colin older x) 

[(Колин старше чем x: Колин старше х)] 

X aged Y ? ans Alan 16 

[X имеет возраст Y ? ответ Алан 16] 

Colin is older than Alan 
[Колин старше чем Алан] 

No sentence (Alan aged X) 

[Удаление предложения (Алан имеет возраст X)] 

Colin is older than Alan 
[Колин старше чем Алан] 

X aged Y ? just Bill 43 

[X имеет возраст Y ? последний ответ Билл 43] 

No sentence (Bill aged X) 

[Удаление предложения (Билл имеет возраст X)] 

No more answers 
[Ответов (больше) нет] 

Если теперь посмотреть на программу, то легко заметить, что 
возраст Алана и Билла изменился. Отметим, что любое имя, 
вводимое пользователем в ответ на запрос системы вида X aged Y? 
должно присутствовать в базе данных. Программа, анализируя 
терм Y aged х, согласует Y с введенным именем, а х с введенным 
возрастом. После этого происходит сравнение введенного пользо¬ 
вателем возраста с возрастом, хранимым в базе данных. 

Выполнение конструкции (Y aged у) delete приводит к реаль¬ 
ным действиям, только если в базе существуют данные о возрасте 
человека, имя которого введено пользователем. Эти действия за¬ 
ключаются в удалении из базы данных предложения, которое 
связывает это имя с новым возрастом, отличным от возраста, вве¬ 
денного пользователем. 

Очень важно, говоря об отношении is-told, помнить, что инфор¬ 
мация, вводимая пользователем в ответ на вопрос системы, не 
запоминается, т. е. не заносится в базу данных. Эта информация 
используется только во время обработки текущего запроса. В при¬ 
веденных выше запросах речь шла о конкретном человеке — Ко¬ 
лине. Соблазнительно попробовать определить с помощью запроса 
all (ху: х older у) 

имена всех тех, кто старше человека, имя и возраст которого будут 
введены пользователем. Но добиться этого с помощью отношения 
older нельзя. Покажем, почему это так. Для того чтобы упростить 
пример, удалим из отношения older термы, связанные с помещением 
в базу данных и исключением из нее утверждений. Теперь можно 
сравнивать возраст людей, информация о которых имеется в базе 
данных, с возрастом тех, кого, возможно, и нет в базе данных и 
информация о которых вводится пользователем. Диалог между 
ЭВМ и пользователем в этом случае может выглядеть так: 
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all (x is older than y: x older y) 

[определить все (x старше чем у: х етарше у)1 
X aged Y ? ans Tom 22 
[X имеет возраст Y ? ответ Том 221 
X aged Y ? just Ted 12 

[X имеет возраст Y ? последний ответ Тед 121 
Alan is older than Ted 
[Алан старше чем Теді 
X aged Y ? just Sam 40 

[X имеет возраст Y ? последний ответ Сэм 401 
Bill is older than Sam 
[Билл старше чем Сэм] 

X aged Y ? ans Joe 27 

[X имеет возраст Y ? ответ Джо 27] 

Colin is older than Joe 
[Колин старше чем Джо] 

X aged Y ? just Fred 30 

[X имеет возраст Y ? последний ответ Фред 30] 

No (more) answers 
[Ответов (больше) нет] 

Обратите внимание на то, что в ответ на сообщение о возрасте 
Тома (ans Tom 22) никакой информации получено не было, хотя 
известно, что и Колин, и Билл старше Тома. Эго произошло по¬ 
тому, что Пролог-система не сравнивала возраст Тома с возрастом 
Колина и Билла. Сравнение производилось только с возрастом 
Алана. И так будет продолжаться до тех пор, пока пользователь 
в ответ на вопрос системы не введет либо just, либо по. После этого, 
получив ответ 

Alan is older than Ted 

Пролог-система будет сравнивать все последующие вводимые 
пользователям данные с данными, относящимися к Биллу. И так 
до тех пор, пока вновь не будет введено just или по. Тогда Пролог- 
система перейдет к Колину. Все это очень хорошо только тогда, 
когда есть уверенность, что пользователь точно знает, с каким 
утверждением он работает. Но, естественно, пользователь в любую 
минуту может об этом забыть. 

Для того чтобы пользователь мог определить, с каким утвержде¬ 
нием он хочет работать, введен еще один вариант терма is-told. 
После введения этого нового терма в программу она примет вид 

Alan aged 15 
Bill aged 42 
Colin aged 28 
X older Y if 

X aged Z and 

(Compare with X) is-told and 
(Y aged x) is-told and 
x LESS Z 
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Ниже приведен один из возможных вариантов диалога между 
программой и пользователем: 
all (х is older than у: х older у) 

[определить все х старше чем у: х старше у] 

Compare with Alan ? yes 
[Сравнивать с Аланом ? да] 

X aged Y ? ans Tom 4 

[X имеет возраст Y ? ответ Том 4] 

Alan is older than Tom 
[Алан старше чем Том] 

X aged Y ? ans Sam 20 

[X имеет возраст Y ? ответ Сэм 20] 

X aged Y ? just Ted 5 

[X имеет возраст Y ? последний ответ Тед 5] 

Alan is older than Ted 
[Алан старше чем Тед] 

Compare with Bill ? no 
[Сравнивать с Биллом ? нет] 

Compare with Colin ? yes 
[Сравнивать с Колином ? да] 

X aged Y ? ans Tom 4 

[X имеет возраст Y ? ответ Том 4] 

Colin is older than Tom 
[Колин старше чем Том] 

X aged Y ? just Fred 40 
[X имеет возраст Y ? Фред 40] 

No (more) answers 
[Ответов (больше) нет] 

&. 

Отметим, что теперь программа требует от пользователя под¬ 
тверждения, что именно с информацией о том человеке, имя кото¬ 
рого ему только что сообщено, пользователь хочет работать. Если 
ответ пользователя yes, то система просит пользователя ввести 
новое имя и возраст. После этого она сравнивает только что введен¬ 
ный возраст с взятым из базы данных возрастом выбранного поль¬ 
зователем человека и, если первый меньше второго, выдает сообще¬ 
ние 

NAME is older than name 

где NAME — имя выбранного пользователем для сравнения чело¬ 
века; name — только что введенное имя. 

Если же ответом является по или ответ начинается с just, то 
система, завершив обработку ответа, переходит к утверждению, 
описывающему следующего человека. Такая схема лучше, чем та, 
которая была раньше. Но все-таки не совсем удобно просматривать 
утверждения базы данных одно за другим до тех пор, пока требуе¬ 
мое не будет найдено. Было бы лучше, если бы пользователь мог 
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сразу же определить нужное утверждение и в злучае необходи¬ 
мости тотчас прекращать работу, а не вводить для этдго несколько 
раз по. К счастью, сделать это легко. Достаточно только поменять 
местами фразы, содержащие терм is-told. Тогда правило, описы¬ 
вающее отношение older, будет выглядеть так: 

X older Y if 

(Compare with X) is-told and 
X aged Z and 
(Y aged x) is-told and 
x LESS Z 

Упражнение 2.11 

Проанализируйте работу программы, полученной в результате 
последней модификации. Используйте эту программу для сравне¬ 
ния сначала возраста Колина, а затем возраста Билла з возрастом 
Теда (25 лет), Джо (30 лет) и Тома (55 лет). 


2.11. НА ПУТИ К ЕСТЕСТВЕННОМУ ЯЗЫКУ 

Значительное внимание исследователи, работающие над пробле¬ 
мами искусственного интеллекта, уделяют вопросам облегчения 
взаимодействий человека с машиной. Достичь удобного для чело¬ 
века диалога можно, применяя световое перо, сенсорный экран или 
устройства типа «мышь», позволяющие быстро выбрать требуемую 
информацию из меню. Все эти средства чрезвычайно полезны; даже 
совершенно неподготовленные пользователи после непродолжи¬ 
тельной тренировки могут их использовать. Кроме того, примене¬ 
ние таких устройств позволяет освободить пользователей от трудо¬ 
емких операций, связанных з набором на клавиатуре. Однако все 
это весьма далеко от использования для взаимодействия с ЭВМ 
обычной человеческой речи. Хотя в последнее время достигнут 
определенный прогресс в области анализа и распознавания речи, 
следует отметить, что существующие системы «понимают» лишь 
небольшое число слов. 

Использование Пролога предоставляет программисту более 
широкие возможности для организации диалога g ЭВМ на языке, 
близком к естественному. Так правильная а точки зрения естест¬ 
венного языка формулировка запроса приводит к удобному для 
восприятия человеком ответу машины. Например, запрос 
all (х is older than у: х older у) 
з этой точки зрения лучше запроса 

all (х у: х older у) 

Преимущество первого запроса становится особенно очевидным, 
если результаты работы программы предназначены для людей, 
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далеких от вычислительной техники. Предпочтительнее именно 
такие расширенные формы запросов. Но программисты могут 
добиться и большего, если будут более тщательно продумывать 
тексты отношений. Тем самым они освободят пользователей от 
необходимости придавать протоколам работы программ вид текстов 
на естественном языке. 

Проиллюстрировать изложенное выше проще всего на примере 
отношения, содержащего предикат is-told, например older. Естест¬ 
венно, что для этого придется внести несколько изменений в пра¬ 
вило, описывающее это отношение. После модификации отношение 
older будет выглядеть так: 

X older Y if 

(Compare with which person X) is-told and 
X aged Z and 

(Input a name Y and an age x for comparison) is-told and 
x LESSZ 


Диалог между пользователем и ЭВМ примет теперь более естест¬ 
венный вид: 

all (х is older than у: х older у) 

[определить все (х старше чем у: х старше у)] 

Compare with which person X ? ans Alan 

[С кем необходимо провести сравнение ? ответ Алан] 

Input a name X and anage Y for comparison ? ans Ted 5 
[Введите имя X и возраст Y для сравнения ? ответ Тед 5] 
Alan is older than Ted 
[Алан старше чем Тед] 

Input a name X and a name Y for comparison ? just Tom 9 
[Введите имя X и возраст Y для сравнения ? ответ Том 9] 
Alan is older than Tom 
[Алан старше чем Том] 

Compare with which person X ? no 

[С кем необходимо провести сравнение ? нет ] 

No (more) answers 
[Ответов (больше) нет] 


Отметим, что ответ пользователя just Том 9 заставляет про¬ 
грамму перейти от одной формы запроса к другой. Не должно 
смущать то, что в программе для представления имени и возраста 
использованы переменные Y и х, в то время как при выводе запроса 
для тех же самых величин используются обозначения X и Y. 
Важно понять, что переменные в Прологе не имеют постоянных или 
глобальных значений. Наша программа сравнивает значения, сооб¬ 
щенные последователем, используя для этого механизм сопостав¬ 
ления образцов, который временно связывает с переменными эти 
значения. 
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Существует возможность сделать программу еще более удобной 
для пользователя. Например, можно освободить пользователя от 
необходимости вводить в запрос текст «х is older than у» (это 
делалось для того, чтобы этот текст появлялся в процессе диалога). 
Перед тем как модифицировать программу, рассмотрим стандарт¬ 
ную форму запросов. Напомним, что до сих пор мы пользовались 
средствами диалоговой системы SIMPLE, которая позволяет 
составлять запросы на языке, близком к естественному. Первое, 
что необходимо отметить, заключается в том, что в стандартном 
синтаксисе Пролога не существует эквивалента для отношения all. 
Запрос на стандартном ПйекаЖгбудет выглядеть так: 

? ((older х у)) 

Символ «?» используется для обозначения запроса. После него 
следует сам запрос, заключенный в двойные скобки. Любой запрос, 
касающийся отношения и его аргументов, должен иметь тот же 
самый вид, который имеет отношение, записанное в соответствии 
с правилами стандартного синтаксиса. Для того чтобы вывести 
на экран стандартное описание отношения, достаточно использо¬ 
вать команду LIST. Например, 

& LIST aged 
((aged Alan 15)) 

((aged Bill 42)) 

((aged Colin 28)) 

Теперь можно ввести запрос 

? ((aged х у)) 

В ответ программа напечатает & . Эго означает, что найдены такие 
значения х и у, которые содержатся в утверждении типа ((aged х 
у)), т. е. такой ответ полностью соответствует YES, получаемому 
в ответ на запрос в случае использования системы SIMPLE. 
Рассмотрим еще один запрос 

? ((aged х 90)) 

В ответ система напечатает знак вопроса и следом за ним символ 
& . Это означает, что ответ на запрос отрицателен, т. е. не сущест¬ 
вует такого х, который содержится в утверждении типа 
((aged х 90)) 

Отметим, что знак вопроса в стандартном синтаксисе соответствует 
N0 в случае использования SIMPLE. 

Ни в первом, ни во втором случаях никакая дополнительная 
информация не появляется. Если же результат необходимо напеча¬ 
тать, следует использовать следующую конструкцию: 

&? ((aged х у) (РР х у)) 

Alan 15 

&. 
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ЗапровР (aged х у) позволяет определить искомые значения 
х и у и по команде (РР х у) эти найденные значения печатаются. 
РР означает красивая печать (pretty print). В данном случае 
использование команды РР позволяет после печати пары значений 
переходить на другую строку. Если бы использовалась команда Р 
(print), все печаталось бы подряд на одной строке. Не существует 
команды, предписывающей программе найти все остальные значе¬ 
ния х и у, удовлетворяющие отношению 
(aged х у) 

Если пользователям такая команда нужна, то они должны 
реализовать ее сами. Пользователям дается возможность опреде¬ 
лять командные отношения так же свободно, как и обычные отно¬ 
шения. Это позволяет создавать программы, ориентированные на 
решение задач конкретной проблемной области. В дальнейшем 
будет показано, как компактно записать текст отношения, удовле¬ 
творяющий требованиям стандартного синтаксиса. Но сейчас оста¬ 
новимся на иѳпользовании двух стандартных отношений (прими¬ 
тивов), описанных выше. 

Напомним, что основной задачей считается создание таких 
отношений, использование которых освобождает пользователей от 
необходимости конструирования сложных запросов. Сложные 
запросы, близкие к предложениям естественного языка, создаются 
для того, чтобы ответы ЭВМ содержали максимально возможное 
количество информации в удобной для восприятия форме. Это 
особенно необходимо в тех случаях, когда протоколы работы про¬ 
грамм распространяются среди заинтересованных лиц. 

Предположим, в ЭВМ находятся три следующих утверждения: 

Alan aged 15 
Bill aged 42 
Colin aged 28 

Диалог между пользователем и ЭВМ вида 
& all (х у: х aged у) 

[определить вве (х у: х имеет возраст у) 

Alan 15 
[Алан 15] 

ВІИ 42 
[Билл 42] 

Colin 28 
[Колин 28] 

может легко быть изменен на следующий: 

& all (х is у years old: х aged у) 

[определить все (возраст человека по имени х — у: х имеет 



[Возраст человека по имени Алан — 151 
Bill is 42 years old 

[Возраст человека по имени Билл — 421 
Colin is 28 years old 

[Возраст человека по имени Колин — 281 

Последний вариант протокола более удобен для восприятия. 
Кроме того, он позволяет однозначно интерпретировать выдавае¬ 
мую информацию. Например, 15 может означать число детей Алана, 
или число его земельных владений, или что-либо подобное. Ведь 
очевидно, что сообщение 

Alan 15 

может трактоваться по-разному. Конечно, можно организовать 
строго форматированный вывод, где возраст, число детей и т. п. 
будут печататься в отдельных снабженных заголовками столбцах 
таблицы. Но такой способ не позволит добиться нужной гибкости 
и будет слишком расточительным в тех случаях, когда требуется 
лишь небольшое число данных, характеризующих ту или иную 
личность. 

В данный момент наша задача заключается в том, чтобы осво¬ 
бодить пользователей от необходимости формирования длинных 
запросов вида 

all (х is у years old: х aged у) 

Чтобы получить от ЭВМ удобные для восприятия сообщения 
достаточно использовать в каждом отношении команду печати 
Например, 

(Bill aged 42) 


заменить на 

(Bill aged 42 if ((РР Bill is 42 years old)) ?) 

Заметим, что знак вопроса появляется теперь сразу после 
команды печати. Это наиболее легкий путь, позволяющий вклю¬ 
чать стандартные команды непосредственно в тексты утверждений, 
удовлетворяющих требованиям системы SIMPLE. Рассмотрим 
теперь, какова будет реакция Пролог-системы на один из возмож¬ 
ных запросов 

all (х у: х aged у) 

[определить все (х у: х имеет возраст у)] 

Alan 15 

[Алан 151 

Bill is 42 years old 

[Возраст человека по имени Билл — 42] 

Bill 42 
[Билл 421 
Colin 28 



[Колин 28] 

&. 


Видно, что информация, касающаяся отношений, которые не были 
изменены, печатается в том же виде, что и раньше; в то же время 
данные о Билле печатаются как в старом, так и в новом форматах. 
Это объясняется тем, что используемое в запросе отношение all 
предусматривает команду печати, и, кроме того, команда печати 
явно присутствует в утверждении, определяющем возраст Билла. 
Устранить ненужную печать можно, используя следующий запрос: 
all (: х aged у) 

[определить все (: х имеет возраст у)] 

Bill is 42 years old 

[Возраст человека по имени Билл — 42] 

No (more) answers 
[Ответов (больше) нет] 

&. 

Но все же, хотя сообщения типа 
Alan 15 

появляться теперь не будут, на месте каждого из них в протоколе 
будет оставлена пустая строка. Это происходит потому, что перед 
двоеточием, где обычно появляются имена переменных, предназна¬ 
ченных для вывода на печать, теперь ничего нет. Другими словами, 
в данном случае факт возникновения пустых строк говорит о том, 
что по команде all ничего не печатается. 

Отметим несколько недостатков метода, основанного на вклю¬ 
чении команд печати во все утверждения программы. Во-первых, 
этот процесс потребует для большой программы значительного 
времени; во-вторых, будет занято много дополнительной памяти; 
в-третьих, новые термы могут создать дополнительные трудности 
для понимания некоторых достаточно длинных утверждений про¬ 
граммы. Естественно, было бы лучше, если бы удалось добавить к 
каждому отношению одно специальное отношение, определяющее 
вывод нужной информации. На выполнение действий, связанных 
с обычными отношениями, эти новые отношения влиять не будут. 
Было бы удобно дать отношениям печати имена, похожие на имена 
тех отношений, для работы с которыми они предназначаются. 
Например, для рассматриваемого отношения aged отношение, 
определяющее вывод на печать, можно назвать age или print-age 
или, наконец, paged. Автору больше нравится последний вариант. 
В общем любому отношению можно поставить в соответствие отно¬ 
шение печати, определяющее требуемую форму вывода информа¬ 
ции. Теперь можно перейти к определению отношения paged: 

X paged Y if 

X aged Y and 

((PP X is Y years old)) ? 
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Работает это отношение так: 

& all (: х paged у) 

[определить все (: х печ.-имеет-возраст у)] 

Alan is 15 years old 

[Возраст человека по имени Алан — 15] 

Bill is 42 years old 

[Возраст человека по имени Билл — 42 ] 

Colin is 28 years old 

[Возраст человека по имени Колин — 28] 

&. 

Пустые строки между ответами появляются потому, что отно¬ 
шение all выполняет собственную команду печати, а форма запроса 
такова, что печатать ничего не надо. Если все же желательно избе¬ 
жать появления пустых строк, то можно заменить команду РР 
в отношении paged на команду Р: 

((Р X is Y years old)) ? 

Выполнение команды Р не приводит к переводу строки. Отчеты 
будут теперь печататься на следующих друг за другом строках, 
поскольку перевод строки выполнит команда РР, не явно присут¬ 
ствующая в all. 

Упражнение 2.12 

а. Объясните, что будет получено в ответ на запрос? 

all (: х aged у) 

б. Сформируйте отношение older, определяющее, когда х 
старше у, и отношение polder, обеспечивающее вывод информации 
из отношения older. 

Упражнение 2.13 

Определите отношения, ориентированные на хранение данных, 
которые приведены в таблице; обеспечьте красивую печать. Приве¬ 
дите примеры такой печати для различных характеристик лич¬ 
ности, указанных в табл. 2.1. 


Таблица 2.1 


(Имя 8 ) 

age 

(Воз- 

birth- 

date 

(Дата 

рожде- 

(Годовой 

Доход). 

number 

дома) 

years-in 
(Число 
лет про¬ 
живания 
в доме) 

Job 

(Профессия) 

years-at 

(Стаж), 

лет 

Alan 

15 

3-6-70 

500 

5 

5 

0 

0 

Bill 

42 

12-2-43 

12 000 

19 

7 

Ratcher 

(мясник) 

23 

Colin 

28 

4-9-57 

9 850 

3 

2 

teacher 

(учитель) 

7 

Diane 

30 

3-8-55 

6 500 

7 

5 

nurse 

(няня) 

5 

Eve 

12 

29-3-73 

0 

4 

12 

0 

0 

Frances 

25 

7-9-60 

11 500 

2 

8 

doctor 

(врач) 

2 
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Упражнение 2.14 

Определите отношение, которое будет выводить на печать всю 
информацию, относящуютея к данной личности, в следующей форме 
(на примере Колина): 

«Колин, 28 лет, учитель, родился 4-9-57, годовой доход составляет 9850 фун¬ 
тов стерлингов, стаж работы 7 лет, живет в доме номер 3 в течение 2 лет». 

Для программы из упражнения 2.12 требуется немного памяти. 
Используя команду 

? ((SPACE X) (РР X)) 

можно определить, сколько памяти остается незанятой; такой 
памяти в данном случае должно быть около 4К. Как уже отмеча¬ 
лось, команда SPACE осуществляет чистку памяти от данных, 
оставшихся в ней после обработки предыдущих запросов. Не надо 
забывать, что программа не должна занимать всю свободную па¬ 
мять, поскольку определенная память нужна для обработки запро¬ 
сов. Если вы хотите получить в Ваше распоряжение дополнитель¬ 
ный участок памяти, используйте команду kill program-mod. 
Но имейте в виду, что после этого все вновь вводимые отношения 
должны быть представлены в форме, удовлетворяющей требова¬ 
ниям стандартного синтаксиса. Кроме того, с помощью команды 
kill errmess-mod 

может быть освобождено дополнительно 1К памяти. Правда, в этом 
случае вместо развернутых сообщений о синтаксических и других 
ошибках будут выдаваться только номера ошибок. Для того чтобы 
получить тексты диагностических сообщений, надо будет восполь¬ 
зоваться руководством. 

Как Вы помните, в упражнении 2.14 требовалось придумать 
такое отношение, которое обеспечивало бы вывод всей информации, 
относящейся к данной личности. В Ваших интересах написать 
свою версию программы и тем самым приобрести определенный 
опыт программирования на Прологе. 

Для тех, кто не может справиться с поставленной задачей, 
приводим возможный вариант программы: 

X pstat Y if 

X age Z and 
X job x and 
not X job 0 and 
X born у and 
X earns z and 
X years-at XI and 
X in Y1 and 
X years-in Z1 and 

((P X, a Z years old x bom on у earns г a year, has been a x 
for XI years, and has lived at number Y1 for Z1 years)) ? 
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Диалог между пользователем и ЭВМ может иметь следующий 
вид: 

one (: pstat х) 

[определить один (: вывод-данных-об-общественном-положе- 
нии х)] 

Bill, а 42 years old butcher born on (12-2-43) earns 12 000 a year, 
has been a butcher for 23 years, and has lived at number 19 for 7 years 
[Билл, 42 года, мясник, родился (12-2-43), годовой доход состав¬ 
ляет 12 000 долларов, стаж работы 23 года, живет в доме 
номер 19 в течение 7 лет] 
more? (у/п) ho 
[еще? (да/нет) нет] 

& all (: Frances pstat х) 

[определить все (: Фрэнсис вывод-данных-об-общественном-по- 
ложении х)] 

Frances, а 25 years old doctor born on (7-9-60) earns 11 500 a 
year, has been a doctor for 2 years, and has lived at number 2 
for 8 years 

[Фрэнсис, 25 лет, врач, родился (7-9-60), годовой доход состав¬ 
ляет 11 500 долларов, стаж работы 2 года, живет в доме номер 2 
в течение 8 лет] 

No (more) answers 
[Ответов (больше) нет] 

Не забудьте при формировании отношения born заключить 
дату в скобки. В том случае, когда скобки отсутствуют, например: 

Frances bom 7-9-60 

будет получено сообщение об ошибке. Дело в том, что Пролог-си¬ 
стема будет интерпретировать 7-9-60 как два аргумента: 7- и 9-60 *. 
Однако можно представить отношение в виде 

Frances born Sept-7-60 

и ошибки в этом случае не будет. 

В качестве имени отношения, обеспечивающего вывод, исполь¬ 
зовано pstat — сокращение от print status**. Можно, конечно, 
придумать любое другое ішя, но лучше использовать имена, 
мнемонически отражающие суть выполняемых операций. 

Отметим, что в этой главе не рассматривались программы, 
имеющие какое-либо практическое значение. Главной считалась 


* В первом случае выражение начинается с цифры 7. В связи с этим 7 и 
все последующие цифры (если они есть) интерпретируются как элемент данных 
арифметического типа. Поскольку за цифрой 7 сразу же идет нецифровой сим¬ 
вол, остальная часть выражения считается элементом данных символьного 
типа. — Прим. ред. пер. 

** Вывод на печать данных, характеризующих общественное положение. — 
Прим. ред. пер. 



задача изучения базовых понятий языка Пролог и демонстрация 
возможностей их применения для решения задач искусственного 
интеллекта. Автор надеется, что читатель, который одолел эту 
главу, разобрался в еледующем: 

1. Программа на языке Пролог представляет собой последова¬ 
тельность определяемых пользователями отношений. Каждое отно¬ 
шение состоит из имени отношения и из одного или нескольких 
аргументов. 

2. В Пролор-еиетеме имеются встроенные отношения. С их 
помощью пользователь составляет и редактирует программу, а 
также формирует запросы. 

3. Встроенными являются также такие логические операции, 
как and, or и т. д. Пролог-система использует эти операции вместе 
с мощными и встроенными средствами сопоставления для обра¬ 
ботки запросов последователей. Широкие возможности Пролога 
по сопоставлению запросов с утверждениями необходимы для 
работы, например, с отношением pstat. 

4. Пролог позволяет легко справляться с обработкой различ¬ 
ных типов данных (см. предыдущую программу). 

5.. Пролог обеспечивает достаточно большую гибкость при ра¬ 
боте с базами данных. 

6. Пролог дает возможность осуществлять ввод и вывод сооб¬ 
щений на естественном языке. 

Ответы к упражнениям 


Упражвение 2.1 

а) all (х: у isa animal and х owns у) 

б) all (х: х owns у and у isa animal and not у white) 

в) all (x: x owns Bootsie) 

r) all (xy: к isa animal and у owns и) 

Упражнение 2.2 

а) NO 

б) Rover Star 

в) Tom Kate 

Упражвевие 2.3 


x light-coloured if 
x isa animal and 
not x black 

all (x: x light-coloured and not x isa horse) 


Упражвевие 2.4 

a) 9; 6) 3; в) —3; г) 18; д) 2; e) NO; ж) YES; з) задавая в качестве третьего 
аргумента х, мы тем самым спрашиваем, является ли сумма 3 и 6—числом. 

Упражнеиие 2.5 

а) 1; б) —4; в) ошибка в процессе вычисления; г) ошибка в процессе вычис¬ 
ления; д) ошибки в упражнениях (в) и (г) связаны с тем, что в отношениях 1NT 
и SIGN значение первого аргумента не определено. 
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Упражнение 2.6 

х geq X 
х geq у 

if у LESS X 
Упражнение 2.7 

а) YES, поскольку запрос в данном случае можно сформулировать так: 
«2 меньше или равно какому-либо числу»; 

б) YES, запрос трактуется так: кКакое-дпбо число меньше или равно 2»; 

в) ошибка в процессе вычислений. 

Упражнение 2.8 

х gt у. if ; х больше-или-равно у if 

not х Jeq у , not х меньше-или-равно у 

Упражнение 2.9 

а) О, I, 2, 3, 4; 

б) all (х: х in (1 100)) 

в) терм SUM должен принять вид SUM (Y 0.1 х» 


X in (X Y) if 
X LESS Y 
X in (Y Z) if 

SUM (X I x) and 
X I.ESS Z and 
Xin(xZ) 

д) необходимо поменять местами утверждения, определяющие отношение in 
Упражнение 2.10 

Смотрите следующее упражнение. 

Упражнение 2.11 

Модифицированное отношение позволяет пользователям с самого начала 
определять, с кем именно необходимо провести сравнение. 

Упражнение 2.12 

а. Должно быть выведено три пустые строки. Программа проведет обработку 
запроса, получит результаты, но ничего не напечатает, поскольку перед двоето¬ 
чием в запросе ннчёго не стоит, 
б: 

X older Y if 

X aged Z and 
Y aged x and 
x LESS Z 
X polder Y if 

X older Y and 
((PX is older thanY))? 


Упражнение 2.13 

Ниже на Прологе описаны факты, касающиеся только человека по имени 
Колин. Для остальных эти утверждения имеют аналогичную структуру: 
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; обратите внимание на скобки 


Colin age 28 
Colin born (4-9-67) 

Colin earns 9850 
Colin in 3 ; 3 — номер дома 

Colin years-in 2 ; 2 — число лет проживания в доме 

Colin job teacher 

Colin years-at 7 ; 7 — стаж работы 

Отношения, обеспечивающие упорядоченный вывод данных, могут быть 
определены так: 


X page Y if 

X аде Y and 

((Р X is Y years old)) ? 

XpbomYif 

X born Y and 

((P X was born on Y)) ? 

X pearns Y if 

X earns Y and 
((P X earns $Y))? 

X pin Y if 

X in Z and 
X years-in Y and 

((P X has lived in number Z for Y years)) ? 

X pjob Y if 

X jobYand 

not X job 0 and 

((P X is employed as a Z)) ? 

X pat Y if 

X job Z and 
X years-at Y and 

((P X has been employed as a Z for Y years)) ? 


Дадим некоторые пояснения. Точки с запятыми служат для того, чтобы от¬ 
делить тексты отношений от комментариев. В каком-то смысле использование 
комментариев противоречит тому, что было сказано ранее о самодокументируе- 
мости программ, написанных на ориентированных на решение задач искусствен¬ 
ного интеллекта языках. В принципе можно было бы выбрать имена отношений 
так, чтобы они отражали семантику отношений. Но все дело в том, что поскольку 
находящаяся в распоряжении пользователя оперативная память ЭВМ Spectrum 
ограничена, имена отношений должны быть короткими. В заключение отметим, 
что комментарии не обязательно вводить в ЭВМ. 

Упражнение 2.14 

См. материал, непосредственно следующий за упражнением 2.14. 



3. СПИСКИ И БАЗЫ ДАННЫХ 


3.1. СПИСОК КАК СТРУКТУРА ДАННЫХ 

В конце второй главы была сделана попытка построения реля¬ 
ционной базы данных, содержащей информацию о нескольких лю¬ 
дях. Для этой цели был использован целый ряд отношений. Пер¬ 
вым аргументом каждого отношения было имя человека, а вторым — 
одно из характеризующих этого человека данных. Причем, число 
утверждений, задающих одно отношение, совпадало с числом 
различных людей. Отметим ряд недостатков, характерных для 
программ такого типа. 

1. Такие программы быстро становятся очень длинными и труд¬ 
ными для сопровождения. 

2. Необходима чрезмерно большая работа по вводу фактов. 

3. Программы не удовлетворяют требованиям гибкости и труд¬ 
ны для модификации. Каждый раз, когда вводится новый аргу¬ 
мент, необходимо модифицировать все отношения, которые его 
используют. 

4. Такие программы занимают очень много места в памяти. 

5. Достаточно трудно, а в определенных случаях и невозможно 
обнаружить и извлечь нужную порцию информации. В больших 
базах данных пользователям потребуется знать имена и определе¬ 
ния всех отношений, предназначенных для работы с ними. 

6. Принципы, положенные в основу построения программы, в 
большей степени определяют то, как программа будет использо¬ 
ваться. В частности, от них во многом будут зависеть используемые 
типы данных. 

В предыдущей главе была сделана попытка устранить два по¬ 
следних недостатка. Для этой цели были разработаны специальные 
отношения, предназначенные для выдачи данных различных типов. 
Но все же необходимы дальнейшие усовершенствования. 

Приступим теперь к изучению списков. Список — это такая 
структура данных, которая помогает сделать программу компакт¬ 
ной, эффективной и легко управляемой. Причем последнее отно¬ 
сится как к программистам, так и к пользователям. Списки — одна 
из тех структур, которые широко используются в программах ис¬ 
кусственного интеллекта, и, кроме того, — это базовая структура 
языка Лисп. В Прологе также имеются мощные средства обработки 
списков, причем в их основе лежат методы, аналогичные тем, кото¬ 
рые используются в Лиспе. 
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Идеи, лежащие в основе создания списка как структуры данных, 
используемой в вычислениях, берут свое начало в обычной жизни. 
Списки магазинов, списки книг для чтения, списки команд и 
инвентаризационные списки — все они состоят из нескольких 
элементов, имеющих, по крайней мере, одно общее свойство. В Про¬ 
логе это свойство трактуется как отношение, определяющее связь 
между элементами в списке или между списком и элементом, внеш¬ 
ним по отношению к списку. Ниже даны примеры списков. 

1. (а b с d) 

2. (a be def ghi) 

3. (1 2 3 4) 

4. (Adam Eve Joe Tom) 

5. (a2 Jim evergreen 25) 

6. (menu roll rota portfolio) 

7. ((a b c ()) (what is next ?) (This is a list) (o ( ) zero null)) 
Каждый из этих списков содержит по четыре члена. Для неко¬ 
торых списков связь между членами устанавливается легко, в то 
время как трудно, например, установить связь между элементами 
пятого списка. Шестой список состоит из элементов, являющихся 
названиями типов списков; седьмой — это список, состоящий из 
списков. В седьмом списке выделяется пустой список, обозначае¬ 
мый ( ). Пустым называется список, не содержащий ни одного 
элемента. Отметим, что список (( )) не является пустым: он содер¬ 
жит один член — пустой список. Понятие «список» имеет много 
общего с понятием «множество». Так же как и множество, список 
можно задать, либо указав все его элементы (например, кошки, 
собаки, крысы, мыши), либо определив правило формирования его 
членов (например, все положительные числа меньше 20). 

При обработке списков часто используются два следующих отно¬ 
шения: APPEND и ON. Рассмотрим сначала отношение ON: 

X isa list-type if 

X ON (menu roll rota portfolio) 

Диалог между пользователем и системой, основанной на исполь¬ 
зовании этого отношения, может выглядеть так: 
all (х: х isa list-type) 

[определить все (х: х это тип-списка) 1 

menu 

[меню 1 

roll 

[рулон] 
rota 

[расписание! 
portfolio 
[папка] 

No (more) answers 
[ответов (больше) нет 1 



Заметим, что числа, непосредственно предшествующие буквам, 
вчитаются самостоятельными термами, т. е. в ответ на запрос 

all (х: х ON (а2 ЗЬ 33с 44d4 555)) 

будет напечатано а2, ЗЬ, 33, с, 44, d4, 555. 

В микроПрологе предусмотрен специальный оператор конструи¬ 
рования списков; он обозначается | . Выражение 
X IY 


означает, что имеется конструкция, состоящая из элемента X, 
за которым следует список Y. Выражение 
(X YIZ) 

означает, что за элементами X и Y следует список Z. Другими 
словами, конструктор списков позволяет расчленить список 
(X I Y на голову X и хвост Y. 

Отношение APPEND служит для объединения двух списков. 
Например, 

which (х: APPEND ((abc) (def) х)) 

(abc def) 

No (more) answers 


В рамках стандартного синтаксиса определение отношения ON 
будет выглядеть так: 


((ON X (X I Y)) 
((OY X (Y I Z)) 
(ON X Z)), 


означая: 

1. X находится в отношении ON со списком, голова которого 
равна X. 

2. X ваходится в отношении ON со списком, состоящим из 
головы Y и хвоста Z, если X находится в отношении ON с Z. 

Отношение APPEND определяется так: 

((APPEND ( ) X X)) 

((APPEND (X Y) Z (X x)) (APPEND Y Z x)) 

Это означает: 

1. Результатом объединения пустого списка ( ) с любым 
списком X является список X. 

2. Если результатом объединения списков Y и Z является 
список х, то результатом объединения списков X | Y и Z будет 
список X I х, т. е. отношение APPEND используется как для 
объединения, так и для расчленения списков. 

Например, в ответ на запрос 

which (Z: APPEND (John Joe) (Alan Bill) x)) 



будет получено (John Joe Alan Bill), т. e. производится объеди¬ 
нение двух списков. 

Далее, ответом на запрос 

which (х: APPEND (х (D Е) (А В С D Е))) 
является (А В С), 

т. е. списку х будет присвоено значение (А В С). 

Наконец, запрос 

which (х: APPEND ((а b с) х (a b с Joe))) 
приведет к тому, что х получит значение (Joe). 

Упражнение 3.1 

Определить, что будет получено в ответ на следующие запросы: 

а) all (х: х ON (1/24) ( ) а2 2а) 

б) all (х: х ON (ab abc (a (Joe Ted) John) def) 

Упражнение 3.2 

Определить результаты: 

а) which (х: APPEND ((THIS IS) (A LIST) х)) 

б) which (х: APPEND (х (IS) (WHAT IS))) 

в) which (x: APPEND ((THIS) x (THIS IS))) 

r) which (x y: APPEND ((a b) (c d e f) (x j y))) 

д) which (x y: APPEND ((x | y) (e f) (ab cd e {))) 

3.2. ИСПОЛЬЗОВАНИЕ СПИСКОВ В БАЗАХ ДАННЫХ 

Теперь можно проверить ряд методов, использование которых, 
возможно, позволит справиться с трудностями, перечисленными 
в начале этой главы. Предположим, что надо создать базу данных 
для хранения информации, приведенной в табл. 3.1. Один из 
возможных путей заключается в объединении всей информации 
о каждой личности в список и использовании для работы с этим 
списком специального отношения, названного, например, stat. 


Таблица 3.1 


Имя 

Во £Г- 

Профессия 

Годовой 

ДОХОД, 

долл. 

Стаж 

ЧГ.” 


Алан 

15 

0 

500 

0 

2 

7 

Билл 

42 

Мясник 

12 000 

23 

19 

7 

Колин 

28 

Учитель 

9 850 

7 

3 

2 

Диана 

30 

Санитарка 

6 500 

5 

7 

5 

Ева 

12 

0 

0 

0 

4 

12 

Фрэнсис 

32 

Врач 

11 500 

5 

2 

2 
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Заметим, что в принципе можно использовать любое другое имя, 
но лучше выбрать такое имя, которое мнемонически отражает 
смысл отношения. В нашем случае stat — сокращение status 
(общественное положение) или statistics (статистика). Ниже при¬ 
ведено описание отношения на языке Пролог: 

Alan stat (15 в 500 0 2 7) 

ВШ stat (32 butcher 12000 23 19 7) 

Colin stat (28 teacher 9850 7 3 2) 

Diana stat (30 nurse 6500 5 7 5) 

Eve stat (12 0 0 0 4 12) 

Frances stat (32 doctor 11500 5 2 2) 

В отношении присутствуют 36 единиц информации (или в слу¬ 
чае учета имен 42 единицы). 

Шесть строк нашего отношения в принципе заменяют 36 строк, 
которые были бы необходимы, если бы для представления каждой 
единицы информации использовалось отдельное утверждение. 
Но, правда, нужно учесть, что несколько дополнительных утвер¬ 
ждений потребуется для того, чтобы иметь возможность выделить 
из списка нужный элемент данных. Приведенные ниже отношения 
как раз используются для этой цели. 

X aged Y if 

X stat (Y Z) 

X job Y if 

X stat (ZY x) and 
not X stat (Z0 x) 

X earns Y if 

X stat (Z x Y y) 

X years-at Y if 

X stat (Z x у Y z) 

X house Y if 

X stat (Z x у z Y XI) 

X years-in Y if 

X stat (Zxy zXl Y Yl) 

Эта программа, без сомнения, более компактна и проще под¬ 
дается изменениям, чем аналогичная программа, описанная в конце 
гл. 2. Достаточно легко, например, добавить к ней новые эле¬ 
менты данных. Для этого надо поместить их в конец списка и пред¬ 
усмотреть новое правило для их извлечения. Забегая немного 
вперед, скажем, что утверждения типа 

Alan stat (15 0 500 0 2 7) 

в теории баз данных называются записями. Все элементы данных, 
входящие в список, носят названия полей; а имя человека, со¬ 
ставляющего вместе со списком отношение, ключом записи. 

В том случае, когда к какой-нибудь записи добавляются поля, 
необходимо модифицировать все имеющиеся записи данного типа, 
невзирая на то, что новые поля могут не входить в состав одной 
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или нескольких записей. Именно по этой причине значениями 
некоторых полей в программе являются нули. Пролог сопостав¬ 
ляет переменные с константами с учетом их позиций в списке. 
Образец должен быть тоже определен, если позиция переменной У, 
представляющей требуемое поле, сравнивается с позицией иско¬ 
мой информации в отношении stat. Например, предложения 
Bill stat (32 butcher 12000 23 19 7) 
и 

Н job Y if X stat (Z Y I x) 

используются для сопоставления Y c butcher в ответ на запрос 
which (х: Bill job х) 

В последнем правиле программы используется 
stat (Z х у z XI Y I Y1), а не stat (Z х у г XI | Y), несмотря 
на то, что последняя конструкция также позволяет извлечь 
нужную информацию. Дело в том, что первая конструкция будет 
работать даже при добавлении к записи новых полей, а вто¬ 
рую — в этом случае потребуется модифицировать. Важно обес¬ 
печить программе гибкость; недостаток предусмотрительности 
может привести либо к ошибкам при извлечении информации 
из базы данных, либо к необходимости проведения дополни¬ 
тельных работ по перепрограммированию уже написанных 
компонентов. 

Упражнение 3,3 

Составьте запросы, е помощью которых можно получить: 

а) всю информацию из базы данных; 

б) название профессии Билла; 

в) фамилии, профессии и годовой доход тех, кому больше 
30 лет; 

г) всю информацию о Фрэнсисе; 

д) фамилии и число лет проживания в доме тех, кто одинаковое 
время жил в одном и том же доме. 

Рекомендуем проверить правильность Ваших ответов на ЭВМ. 
Предупреждаем, что задание не такое простое, как кажется на 
первый взгляд. 

Тонкость последнего задания упражнения 3.3 заключается 
в том, что гораздо легче получить больше информации, чем тре¬ 
буется. Первая попытка выполнить упражнение может быть 
такой: 

all (X Y Z: X years-in Z and Y years-in Z) 

Другими словами, ищутся X и Y такие, которые прожили в своих 
домах одинаковое число лет Z. 

В качестве ответа на этот запрос получим 



Alan Alan 7 
Alan Bill 7 
Bill Bill 7 


и T. д. 

Повторение одного и того же имени объясняется тем, что 
Пролог-система «не знает», что X и Y не должны принимать одно 
и то же значение. Кроме того, одним из возможных ответов будет 
Bill Alan 7 

в принципе дублирующий ответ 

Alan Bill 7 

С точки зрения формальной логики вполне справедливы следую¬ 
щие утверждения: Алан живет в своем доме столько же лет, 
сколько Билл живет в своем; если Алан живет в своем доме то же 
самое время, что и Билл живет в своем, то Билл живет в своем 
доме столько же лет, сколько Алан живет в своем. 

Из всего написанного выше ясно, что необходимо, во-первых, 
чтобы X и Y отличались друг от друга и, во-вторых, чтобы инфор¬ 
мация (X Y) считалась тождественной информации (Y X). Да, 
воистину логика иногда раздражающе логична. Запрос же теперь 
можно составить так: 

all (X Y Z: X years-in Z and Y years-in Z and X LESS Y) 
Ответами на этот запрос будут 

Alan Bill 7 

и 

Colin Frances 2 

Напомним, что с помощью отношения LESS можно сравни¬ 
вать строки символов в соответствии с кодами символов в ASCII. 
Это свойство очень полезно для сортировки. 

Упражнение 3.4 

Дополните описанные выше записи о людях следующими дан¬ 
ными: 

а) главным увлечением; 

б) типом автомобиля; 

в) названием любимого музыкального жанра; 

г) составьте новые отношения, которые позволяли бы извле¬ 
кать только что указанную информацию. 

3.3. СПИСКИ, СОСТОЯЩИЕ из списков 

Те, кому удалось справиться с упражнением 3.4, наверняка 
заметили, что списковая структура с девятью элементами до¬ 
вольно громоздка. Рассмотрим типичный пример отношения stat: 
Bill stat (42 butcher 12000 23 19 7 golf Metro jazz) 
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Сама по себе подобная форма представления информации не 
так уж плоха. Но для извлечения,, например, данных об автомо¬ 
биле требуется следующее предложение: 

X саг Y if 

X stat (Z х у z XI Y1 Z1 Y xl) 

В результате значение, подлежащее определению, будет при¬ 
своено переменной Y. Но данное предложение будет работать, пока 
списки в базе данных содержат девять членов и никак не больше. 

Указанный недостаток можно преодолеть, если составлять 
список из нескольких подсписков, в каждый из которых включать 
небольшое число членов. Если в какой-то момент времени под¬ 
списков становится слишком много, их, в свою очередь, можно 
объединить в подсписки более высокого уровня и т. д. С шестью 
подсписками, состоящими не более чем из шести элементов, 
работать довольно просто. А ведь это позволяет организовать до¬ 
ступ к 36 элементам данных. В интересах программиста включать 
в один и тот же подсписок данные, семантически связанные друг 
с другом. В нашем примере целесообразно один подсписок связать 
с профессией и включить в него специальность, годовой доход и 
стаж; другой подсписок будет содержать данные о склонностях 
человека: хобби, любимом музыкальном жанре и т. д. Эго сделает 
программу легкой для понимания и удобной для использования и 
модификации. Более того, пользователям необязательно даже 
знать, как различные элементы объединяются в списки; они 
должны уметь только составлять запросы. 

Предположим, что о каждом человеке надо хранить следующую 
информацию: возраст, дату и место рождения, адрес, профессию, 
годовой доход, стаж, название места работы и ее адрес, имя су¬ 
пруги (супруга), ее (его) возраст и число совместно прожитых 
лет. Будем считать всех интересующих нас людей совершенно¬ 
летними. Это не приведет к потере общности, поскольку в случае 
необходимости можно определить отношение, позволяющее от¬ 
делить совершеннолетних от детей. Всю указанную информацию, 
представляющую собой смесь числовых и символьных данных, 
можно хранить в списках следующей структуры: 

ВШ stat ((42 Jan-25-1943 Leeds) (19 West-St Leeds) (butcher 1209 23) 
(self 8 York-Rd Leeds) (Jane 39 18)) 

Tom stat ((24 Nov-3-1960 Dover) (7 Eglington-St Andover) (engineer 
8000 3) (Ace Engineers 17 Sprocket-St Salisbury) ()) 

Ted stat ((31 Mar-9-1954 Bath) (2 Brook-St Bath) () () (Laura 30 5)) 

Helen stat ((29 Aug-30-1956 Merton) (15 Albert-St Merton) (typist 
6500 3) (Hill-and-Son 6 Nelson-Rd Wimbledon) Jack 29 5)) 

Joe stat ((67 Oct-9-1917 Bristol) (23 South-Rd Cheltenham) (retired () 

5)() (Sarah 64 41)) 

Betty stat ((35 May-3-1950 Larne) (18 Antrim-Rd Lame) (nurse 9500 13) 
(St-Marys-Hospital 226 Longpark Belfast) (James 38 13)) 
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Читатели имеют возможность заменять любые записи и добав¬ 
лять нужные им данные. Информация хранится в следующей 
форме: 

(ключ) (отношение) ((список 1) (список 2) (список 3) 

(список 4) (список 5)) 

Извлечь любой нужный подсписок можно с помощью правил, 
аналогичных приведенным ниже: 


X birth Y if 

X stat (Y i Z) 

X address Y if 

Xstat(Z Yix) 


В данном случае переменные будут сопоставляться не с от¬ 
дельными элементами данных, а с целыми подсписками. Так, со¬ 
гласно первому правилу переменная Y будет сопоставляться 
с подсписком, содержащим дату и место рождения. Запрос, позво¬ 
ляющий получить эту информацию, может выглядеть так: 

all (х у: х birth у) 

В ответ на этот запрос система сообщит 

Bill (42 Jan-25-1943 Leeds) 

[Билл (42 25 января 1943 года Лидс) 

И т. д. 

Чтобы извлечь нужный элемент из подсписка, можно исполь¬ 
зовать правила типа 

X age Y if 

X stat ((Y I Z) I x) 

Это правило позволяет получить информацию о возрасте, 
которая находится в первом элементе первого списка. Информацию 
о профессии можно извлечь с помощью следующего правила: 

X job Y if 

X stat (Z x (Y I у) I z 

Таким образом, данные о профессии находятся в первом эле¬ 
менте третьего списка. Читатели теперь без труда составят отно- 
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шения, предназначенные для извлечения всей остальной инфор¬ 
мации. 

Упражнение 3.5 

а. Составьте отношения для извлечения оставшихся под¬ 
списков. 

б. Определите, сколько элементов находится в каждом из 
пяти списков, и напишите отношения для доступа к этим эле¬ 
ментам. 

Упражнение 3.6 

Составьте отношения для определения: 

а. Кто состоял в браке одно и то же число лет? 

б. У кого одинаковый стаж? 

в. У кого стаж совпадает с числом лет, прожитых в браке? 

г. Кто живет там, где родился? 

д. Кто живет и работает там, где родился? 

Тем читателям, которые хотят самостоятельно выполнить 
упражнения 3.5 и 3.6, рекомендуется пока не заглядывать дальше. 

Поскольку каждый обобщенный список состоит из пяти под¬ 
списков, для доступа к ним необходимо пять правил. Ниже при¬ 
ведены эти правила, хотя в принципе читатели могут выбрать для 
отношений любые другие имена: 

X birth Y if 

X stat (Y! Z) 

X home Y if 

X stat (Z Y i x) 

X work Y if 

X stat (Z x Y! y) 

XfirnY if 

X stat (Z x у Y! y) 

X marriage Y if 

Xstat(ZxyzY|Xl) 

С помощью каждого из этих правил можно получить сразу всю 
информацию, относящуюся к какой-то одной стороне личности. 
Например, запрос 

all (х у: х firm у) 

позволяет определить имена всех тех, кто фигурирует в базе дан¬ 
ных вместе с информацией о месте их работы. 

Подсписки содержат 3, 3, 3, 4 и 3 элемента соответственно. 
Таким образом, общее число элементов данных равно 16. Оче¬ 
видно, что для извлечения этих элементов потребуется 16 правил. 
Отметим, что в четвертом подсписке содержится четыре элемента: 
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название фирмы, номер дома, название улицы, город. Вот эти 
16 правил: 

X aged Y if 

X birth (Y Z) 

X birthdate Yif 

X birth (Z YI x) 

X birthplace Yif 

Xbirth(ZxY y) 

X home-no Y if 
X home (Y! Z) 

X home-st Y if 

X home (ZY|x) 

X home-place Y if 

X home (Z x Y j y) 

X job Yif 

X work (YIZ) 

X earns Y if 

X work (ZYx) 

X years-in-job Y if 
X work (Z x Y j y) 

X employer Y if 
X firm (Y; Z) 

X work-no Y if 

X firm (Z Y j x) 

X work-st Y if 

Xfirm(ZxYy) 

X workplace Y if 

X firm (ZxyY|z) 

X spouse Y if 

X marriage (Y Z) 

X spouse-age Y if 

X marriage (ZYx) 

X married Y if 

X marriage (ZxY y) 

В них использованы ранее определенные отношения, пред¬ 
назначенные для извлечения сразу всех данных, принадлежащих 
подсписку. Отметим, что можно получить данные из большего 
по размеру списка с помощью отношений вида 

X aged Y if 

X stat ((Y I Z) I x) 

Это последнее правило, ссылающееся на отношение stat, 
может быть быстрее выполнено, поскольку в нем фигурируют 
только два отношения. С другой стороны, метод, заключающийся 
в использовании дополнительных правил для извлечения элемен¬ 
тов данных из подсписка, определенного с помощью отношения 
stat, оперирует с более коротким списком неизвестных. Особенно 
это заметно для подсписков, расположенных в конце главного 
списка. Кроме того, преимущество этого метода также в том, что 
образ неизвестного списка одинаков сразу для нескольких правил. 


77 



Чтобы убедиться в этом, достаточно сравнить правила, описываю¬ 
щие возраст и дату рождения, с правилами, описывающими место 
жительства. 

Таким образом, программа, реализующая этот метод, во- 
первых, удобнее для понимания и, во-вторых, в случае добавле¬ 
ния новых данных соответствующие им правила будут иметь ту же 
самую структуру, что и уже имеющиеся в программе правила. 
Для включения новых правил можно использовать команду cedit, 
упомянутую во второй главе. Отметим, что во всех выше описан¬ 
ных отношениях предусмотрена возможность расширения базы 
данных. Именно поэтому отношение marriage определяется так, 
как показано ниже: 

X marriage Y if 

X stat (Z x у г Y| XI) 
а не так: 

X marriage Y if 

X stat (Z х у z Y) 

Последнее правило дает возможность извлекать нужные дан¬ 
ные, так как Y является последним подсписком в главном списке. 
Но при добавлении новых подсписков это правило надо модифи¬ 
цировать. Аналогично правило 
X homeplace Y if 

X home (Z х Y | у) 

хотя и позволяет определить город, в котором живет тот или иной 
человек, но проигрывает по сравнению с правилом 
X homeplace Y if 

X home (Z х Y | у) 

поскольку последнее не требует модификации в случае пополне¬ 
ния данных, принадлежащих подсписку. 

Ясно, что много полезной информации может быть получено 
в результате анализа данных, находящихся в подсписках. Ниже 
дано несколько примеров, позволяющих получить эту информа¬ 
цию. Предположим, что необходимо найти всех тех, кто работает 
в том же городе, в котором живет: 
all (х у: х homeplace у and х workplace у) 

[определить все (х у: х живет в городе у и х работает в городе у) 1 
Bill Leeds 
[Билл Лидс] 

No (more) answers 
[Ответов (больше) нет]. 

Однако попытка определить всех тех, кто работает не там, 
где живет, с помощью запроса 

all (х у г: х homeplace у and х workplace z) 
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приводит к неудаче. В ответ на этот запрос будут получены сле¬ 
дующие данные: 

Bill Leeds Leeds 
[Билл Лидс Лидс! 

Tom Andover Dover 
[Том Эндувр Дувр! 

Helen Merton Wimbledon 
[Эллен Мертон Уимблдон 1 
Betty Lame Belfast 
[Бетти Лан Белфаст 1 
No (more) answers 
[Ответов (больше) нет ] 

Понятно, что это не совсем то, что хотелось. Попробуем про¬ 
анализировать последний запрос. Кажется, что поскольку две 
переменные у и г используются для названий городов, программа 
должна сопоставить им разные значения. Но это не так. Сначала 
программа ищет, какие константы можно сопоставить перемен¬ 
ным хну, причем эти константы должны входить в отношение 
homeplace. В результате х будет поставлено в соответствие Bill, 
а у — Leeds. Затем программа ищет пример отношения workplace, 
первым аргументом которого является Bill. После успешного 
завершения поиска несвязанной переменной присваивается зна¬ 
чение Leeds. И, наконец, выводится первый из приведенных выше 
ответов. Заметим, что в запросе нет никакой информации о том, 
что у и z не могут принимать одно и то же значение. В процессе 
обработки запроса для хранения значений переменных х, у и г 
выделяется специальная структура, называемая стеком. После 
того, как первое решение найдено, значение г выталкивается из 
стека, и программа старается сопоставить с г другое значение. 
Процесс поиска альтернативных решений называется поиском 
с возвратом или бэктрекингом. Для переменной г на данном шаге 
других альтернативных значений не существует. Поэтому про¬ 
грамма возвращается к оценке первой части запроса Bill home- 
place у. Поскольку новых значений для переменной у не суще¬ 
ствует, вся описанная процедура повторяется, только в качестве х 
теперь используется значение Тот. 

Стек представляет собой структуру данных, которая занимает 
ряд смежных позиций памяти. Очередная порция данных поме¬ 
щается в стек с помощью операции PUSH, а удаляется из стека 
с помощью операции POP. Стек часто называют структурой типа 
«последним пришел — первым ушел» *. Это означает, что порция 
данных, помещенная в стек последней, удаляется первой. Функ¬ 
ционирование стека напоминает работу автоматической раздаточ¬ 
ной машины; отличие состоит в том, что данные и добавляются 


* Часто используется аббревиатура LIFO (last in first out) — Прим. пер. 
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й 


и 


push - 


Рис. 3.1. Операции со стеком: 

:иие элемента в стек; POP — выталкивание эле- 


в стек и извлекаются из стека пользователями. 
Переменная вершина стека указывает на пози¬ 
цию, в которой размещается последний помещен¬ 
ный в стек элемент данных. Во многих ЭВМ 
стек реализован так, что «растет» сверху вниз, т. е. положение 
вершины стека остается неизменным. Но все это в принципе не 
касается тех, кто программирует на Прологе. 

На рис. 3.1 изображены диаграммы, иллюстрирующие выпол¬ 
нение операций со стеком; элемент ЕЗ помещается в стек послед¬ 
ним — следом за элементами Е1 и Е2, а выталкивается первым. 
Операции со стеком широко используются Пролог-системой в про¬ 
цессе оценки применимости правил. В связи с этим программист 
должен сознавать, что существует опасность чрезмерного роста 
стека, и принимать необходимые меры для ее устранения. К более 
детальному рассмотрению этого вопроса мы перейдем позднее. 



Упражнение 3.7 

Вернемся к обсуждавшемуся ранее вопросу. Может быть 
запрос 

all (х у: х homeplace у and not х workplace у) 

позволит решить проблему? Если для проверки Вы используете 
ЭВМ, то поймете, что это не так. Но тем не менее этот запрос очень 
похож на тот, который нам нужен. 


Упражнение 3.8 

Составьте запросы, позволяющие определить; 

а. Кто зарабатывает более 8000 долл, и каков их точный 
годовой доход? 

б. Каковы имена людей старше 30 лет, чей годовой доход 
менее 10 000 долл.? 

в. Кто работает у себя дома? ' 

г. Кто дольше, чем Том, работает на одном месте? 

д. Кто женат дольше, чем Джо? 


3.4. ПРАВИЛА ИЛИ ЗНАНИЯ 

В последней программе хранятся данные как о возрасте, так 
и дате рождения каждого человека. Но достаточно в принципе 
задать только дату рождения, а в программе предусмотреть пра¬ 
вила, позволяющие по вводимой дате вычислять возраст. Этот 
пример достаточно характерен и позволяет сформулировать важ- 





ную задачу, всякий раз возникающую перед программистом: 
какую программную систему разрабатывать — основанную на 
правилах или на знаниях? Отметим, что в чистом виде систем, 
основанных только на знаниях или только на правилах, не су¬ 
ществует. Но могут существовать как программы, включающие 
очень немного правил и много фактов, так и программы, состоя¬ 
щие в основном из правил. Программы, основанные на знаниях, 
обычно работают быстрее, чем аналогичные программы, базирую¬ 
щиеся на правилах, но зато для хранения дополнительных дан¬ 
ных требуется лишняя память. 

В качестве примера рассмотрим новый формат отноше¬ 
ния stat: 


Bill stat ((25 1 1943 Leeds) ...) 


Многоточие свидетельствует о том, что оставшаяся часть отноше¬ 
ния не изменилась. К каждому из элементов данных в принципе 
легко обратиться, но для определения возраста теперь требуется 
дополнительное отношение. Кроме того, должна быть известна 
текущая дата. 

Новые правила, предназначенные для работы с данными о дате 
рождения, будут теперь иметь вид 


X birth Y if 

Xstat(Y|Z) 

X birthdate (Y Z x) if 
X birth (YZx|y) 
X birthplace Y if 

X birth (Z x у YI z) 


Обратите внимание на то, что в правилах предусмотрена воз¬ 
можность увеличения числа данных. 

Отметим, что задача определения возраста сложнее, чем может 
показаться на первый взгляд. Необходимо учесть следующие 
соображения: 

если номер текущего месяца больше номера месяца даты 
рождения, то необходимо просто вычесть год рождения из теку¬ 
щего года; 

ту же самую операцию надо проделать, если номера месяцев 
совпадают, а номер текущего дня больше или равен номеру дня 
рождения; 

если же номер месяца даты рождения больше номера те¬ 
кущего месяца или номера месяцев совпадают, а номер дня 
рождения больше номера текущего дня, то необходимо вычесть 
год рождения из текущего года и результат уменьшить на 
единицу. 



Напомним, что отношение меньше или равно имеет следующий 
V 

X leq Х‘ 

X leq Y if 

X LESS Y 


Ниже приведены правила, позволяющие вычислить возраст 
человека: 


X age Y if 

X birthdate (Z х у) and 
date now (z XI Yl) and 

(either x LESS XI and I or x leq XI and Z leq z) and 
SUM (Y у Yl) 

X age Y if 

X birthdate (Z x y) and 
date now (z XI Yl) and 

(either XI LESS x and / or XI leq x and z LESS Z) and 

SUM (Z1 у Yl) and 

SUM(YIZI) 


Символ «/» используется здесь для обозначения специальной 
команды, которая запрещает производить возврат для поиска 
альтернативных решений. Эту команду нам предстоит рассмотреть 
более подробно, но сделаем мы это немного позднее. Сейчас же 
будем считать, что любое условие, стоящее перед «/», будет ана¬ 
лизироваться только один раз. 

Отношение SUM дважды используется для определения раз¬ 
ности между текущим годом и годом рождения и один раз для 
вычитания единицы. Для проверки работы программы необхо¬ 
димо включить в ее состав отношение date и сформировать запрос, 
позволяющий определить возраст всех тех людей, информация 
о которых содержится в базе данных. 

Для более тщательного тестирования программы рекомендуем 
в качестве текущей использовать дату, месяц и число, которое 
или совпадает с месяцем и числом чьей-нибудь даты рождения, 
или предшествует ей, или следует за ней. Хранить в базе данных 
следует только один экземпляр даты, в противном случае в ответ 
на каждый запрос будет получено несколько альтернативных 
ответов. Ниже приведен характерный пример диалога пользова¬ 
теля с системой: 


date now (8 10 1985) 
[текущая дата (8 10 1985)1 
all (х у: х age у) 



[определить все (х у: х имеет возраст у)] 

Bill 42 

Ted 31 

Helen 29 

Betty 35 

Tom 24 

Joe 67 

No (more) answers 

[Ответов (больше) нет] 

date now (9 10 1985) 

[текущая дата (9 Ю 1985)] 
all (х у: х age у) 

[определить все (х у: х имеет возраст у)] 


Bill 42 

Ted 31 

Helen 29 

Joe 68 

Betty 35 

Tom 24 

No (more) answers 
[Ответов (больше) нет] 
date now (21 3 1985) 

[текущая дата (21 2 1985)] 

all (x born on у and now aged z: x birthdate у and x age z) 
[определить все (Дата рождения х-у и его возраст в данный 
момент z: х родился у и х имеет возраст z)] 

Bill born on (25 1 1943) and now aged 42 

[Дата рождения Билла — (25 1 1943) и его возраст в данный 

момент 42] 

Tom born on (3 11 1960) and now aged 24 

[Дата рождения Тома — (3 11 1960) и его возраст в данный 

момент — 241 

Ted born on (9 3 1954) u now aged 31 

[Дата рождения Теда — (9 3 1954) и его возраст в данный 
момент — 24 ] 

Helen bom on (39 8 1956) end now aged 28 

[Дата рождения Элен — (30 8 1956) и ее возраст в данный 


момент — 281 


Joe born on (9 10 1917) and now aged 67 

[Дата рождения Джо — (9 10 1917) и его возраст в данный 
момент — 67 ] 


Betty born on (3 5 1950) and now aged 34 

[Дата рождения Бетти — (3 5 1950) и ее возраст в данный 

момент — 34 ] 


No (more) answers 
[Ответов (больше нет)] 



З.б. МОДИФИКАЦИЯ ПРОГРАММЫ 


В рассматриваемую нами программу должны время от времени 
вноситься изменения. Укажем, в каких случаях это необходимо. 

1. В базу данных требуется добавить информацию о новом 
человеке или удалить всю информацию о той или иной личности. 
Эти операции достаточно просто выполнить с помощью отношений 
add и delete. 

2. В базу данных может потребоваться ввести дополнитель¬ 
ную информацию о личности; причем ее следует поместить либо 
в один существующий подсписок, либо в несколько существующих 
подсписков, либо потребуется создать новый подсписок и включить 
данные в него. Такую возможность необходимо принять во вни 
мание при конструировании правил, предназначенных для до¬ 
ступа к уже имеющейся в базе данных информации. Все изме¬ 
нения должны быть сведены только к включению в про¬ 
грамму дополнительной информации и новых правил для до¬ 
ступа к ней. 

3. Довольно часто требуется изменять данные, хранящиеся 
в базе. Характерным примером таких данных является текущая 
дата. 

Отметим, что устройство, отсчитывающее время, или таймер, 
обычно полностью автономно и не прекращает своей работы даже 
тогда, когда отключается питание ЭВМ. Чтобы определить дату, 
достаточно обратиться к этому устройству. Именно это сразу 
после включения ЭВМ делает системная программа инициали¬ 
зации. Кроме того, существуют следующие способы определения 
даты: с помощью специальной программы, которая вызывается 
в тех случаях, когда для обработки запроса требуется дата; 
с помощью отношения, которое либо запрашивает у пользователя 
дату, либо побуждает ЭВМ модифицировать дату в соответствии 
с некоторым фиксированным правилом. Поскольку последним 
способом наиболее часто пользуются владельцы микроЭВМ, мы 
рассмотрим несколько возможных путей его реализации. 

Читателям уже известен используемый в Пролог-системе 
способ модификации информации, основанный на отношении 
is-told. Для того чтобы воспользоваться им, необходимо загрузить 
в оперативную память модуль TOLD. 

Напомним, что иногда текст программы занимает слишком 
много места и в связи с этим работа программы замедляется. 
Чтобы этого не было, следует после отладки программы удалить 
модули системы SIMPLE из памяти и все запросы формулировать, 
следуя требованиям стандартного синтаксиса. Однако удобно 
постоянно иметь в распоряжении систему SIMPLE. Поэтому, 
для того чтобы все же ускорить работу, мы введем в рассмотрение 
новую программу, которая связана главным образом с использо¬ 
ванием даты для получения ответов на запросы. 



Читателю, который совмещает чтение этой книги с работой на 
ЭВМ, к сожалению, придется удалить прежнюю программу и 
набрать новую, текст которой приведен ниже: 


Betty bom (3 5 1950) 

Joe born (9 10 1917) 

Helen bom (30 3 1950) 

Tom bom (311 1960) 

Bill bom (251 1960) 

Ted bom (9 31954) 

Mary bom (1 11930) 

Isabel bom (31 12 1942) 

X age Y if 

X bom (Z x y) and 
date now (z XI Yl) and 

(either x LESS XI and / or x leq XI and Z leq z) and 
SUM (Y у Yl) 

X age Y if 

X bom (Z x y) and 
date now (z XI Yl) and 

(either XI LESS x and / or XI leq x and z I .ESS Z) and 
SUM (Z1 у Yl) and 
SUM (Y 1 Zl) 

X leq X 
X leq Y if 

X LESS Y 

date now (20 9 1985) 


В ответ на запрос 

all (х у z: х born у and х age z) 


должны быть получены следующие ответы: 

Betty ( 3 5 1950) 35 

Joe ( 9 10 1917) 67 

Helen (30 8 1956) 29 

Тош ( 3 11 1950) 34 

Bill (25 1 1943) 42 

Ted ( 9 3 1954) 31 

Магу ( 1 1 1980) 5 

Isabel (31 12 1942) 42 

Теперь сформулируем правило, позволяющее модифицировать 
дату: 

update X if 

now KILL and 

(new date (X)) is-told and 

(date now X) add and 
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Продемонстрируем на примере, как оно работает: 
is (update х) 

[верно (модифицировать х) 1 
new date (X) ? ans (19 9 1985) 

[новая дата (X) ? ответ (19 9 1985)1 

Yes 

[Да] 

Когда текст программы будет выведен на печать, окажется, 
что старая дата уничтожена, а новая добавлена. Следует вводить 
только одну новую дату, поскольку все равно отношение */» 
предотвратит использование всех дат, кроме одной. Если эта 
предосторожность не будет выполнена, новые даты будут запра¬ 
шиваться до тех пор, пока от пользователя не будет получен от¬ 
вет N0. Заметим, что при вводе необходимо дату заключать в круг¬ 
лые скобки. 

Не прибегая к модификации отношения age, сформируем новое 
отношение, которое позволит одновременно изменить дату и 
определить возраст. Когда дату корректировать не надо, можно 
использовать описанные выше отношения: 

X new-age Y if 
update Z and 
X age Y 

Теперь программа будет работать следующим образом: 
all (х у: х new-age у) 

[определить все (х у: х имеет-новый-возраст у)] 
new date (X) ? ans (12 12 1985) 

[новая дата (X) ? ответ (12 12 1985)1 
Betty 35 
[Бетти 35] 

Joe 68 
[Джо 68] 
и т. д. 

Упражнение 3.9 

Составьте запросы, позволяющие определить: 

а. Кто моложе, чем Тед, и каков его возраст? 

б. Кому 1 января 1975 г. было больше 18 лет? 

в. Кому 31 декабря 2000 г. будет меньше 50 лет? 

г. Кто в данный момент имеет один и тот же возраст? 

д. У кого даты рождения совпадают? 

е. Кто родился позднее 1 января 1950 г.? 

Упражнение 3.10 

В табл. 3.2 приведены запасы стройматериалов, которыми 
располагает три строительных подрядчика. 
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Таблица 3.2 


Подрядчик 

Песок, » 

Цемент, т 

Блоки, шт. 

т К ьГГ’ 

McDoo 

30 

12 

. 200 

555 

Fee 

598 

100 

3500 

9760 

Putlog 

8900 

950 

7380 

6875 


Напишите программу, которая позволит пользователю оп¬ 
ределить, какое количество указанного материала находится 
у данного поставщика, и, кроме того, даст возможность пере¬ 
определить ресурсы поставщиков после покупки и продажи 
материалов. 

Программисту, привыкшему работать на Бейсике, программа 
на Прологе для упражнения 3.10 покажется громоздкой и ка¬ 
кой-то нескладной. На Бейсике все выглядело бы значительно 
проще: достаточно было бы нескольких операторов типа LET 
или одного FOR. Но в Прологе таких возможностей нет. Суще¬ 
ствует принципиальная разница в методах обработки данных, 
используемых Бейсиком и Прологом. В Бейсике переменные при¬ 
нимают глобальные значения, которые в процессе выполнения 
программы меняются в соответствии с выполняемыми операциями; 
в Прологе переменные не принимают глобальных значений и 
с ними связываются значения только в результате обработки 
запроса. Кроме того, в Прологе после обработки запроса послед¬ 
нее назначенное переменной значение не запоминается. 

В языках, подобных Бейсику, данные являются динамиче¬ 
скими или изменяемыми; в то же время данные в Прологе ста¬ 
тичны или неизменны. Одна из ловушек, подстерегающих в Про¬ 
логе тех, кто привык к Бейсику, заключается в том, что значения, 
вводимые с помощью отношения is-told, не сохраняются. Для 
того чтоб^і сохранить значения, необходимо использовать отно¬ 
шение add; для удаления старых значений можно применять от¬ 
ношение delete. Эти два отношения можно использовать для того, 
чтобы определить, сколько раз применялось заданное правило 
в процессе обработки запроса. Отметим, что эту же задачу на 
Бейсике решить несколько проще, чем на Прологе. 

Предположим, требуется узнать, сколько раз программа иѳ- 
пользует дату в процессе обработки запроса о возрасте. Для 
этого необходимо создать два отношения: одно — для хранения 
требуемого числа и второе — для его модификации. Кроме того, 
для того чтобы предусмотреть модификацию информации, необ¬ 
ходимо добавить условие к правилу, использование которого 
контролируется. 
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В результате изменения, вносимые в программу, будут иметь 
вид: 


date now (22 9 1985) if 
A upcount 
X upcount if 

(X count У) delete and 
SUM (Y 1 Z) and 
(X count Z) add and 
/ 

A count 0 
В count 0 
C count 0 
D count 0 

Выполнение условия 

if A upcount 

приводит к замене предложения 

A count N 


предложением 

A count N + 1 

всякий раз, когда используется отношение date. 

Остальные утверждения, включающие объекты В, С и D, по¬ 
требуются, если понадобится контролировать какие-то другие 
отношения. 

На запрос 

all (х A count у : х age г and A count у) 

теперь будут получены следующие ответы: 

Betty A count 1 
Helen A count 3 
Bill A count 5 
Ted A count 6 
Mary A count 7 
Joy A count 10 
Tom A count 12 

Подчеркнем, что отношение count позволяет определить об¬ 
щее число обращений к дате. Для Бетти, Теда и Мэри число таких 
обращений равно 1, для Элен, Билла и Тома 2, для Джо — 3 
и для Изабеллы — 4. Можно предположить, что программа, 
включающая отношения count и update, будет работать медленно. 
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Это действительно так, поскольку выполнение операций, связан¬ 
ных с отношениями add и delete, потребует значительного вре¬ 
мени. Другими словами, описанный метод стоит использовать 
только для выполнения диагностических функций. Более того, 
в Пролог-системе есть специальный модуль TRACE, позволяющий 
следить за каждым шагом работы программы в процессе оценки 
запроса. Для того чтобы осуществить это, необходимо разместить 
модуль TRACE непосредственно перед программой пользователя. 
Но следует учесть, что он занимает достаточно много памяти и 
поэтому его целесообразно использовать как средство обучения 
только вместе с небольшими программами. Если с помощью 
отношения count необходимо следить за работой нескольких 
правил,, то было бы удобно иметь универсальное средство уста¬ 
новки в ноль значений всех счетчиков, использование которого 
даст возможность избежать модификации каждого предложения. 
Ниже приведена программа, которая позволяет это сделать. 
В ней предусмотрено удаление всех имеющихся предложений 
отношения count и добавление новых для счетчиков А, В и С 

X zero if 

(X count Y) delete and 
(X count 0) add and 

/ 

X reset if 

Yisall(Y:Y count Z) and 
X ON Y and 
not X count 0 and 
Xzero 
A count 5 
В count 55 
C count 23 

Для установки в ноль всех счетчиков достаточно использо¬ 
вать следующий запрос 

all (х: х reset) 

В ответ будет напечатано С, В и А — именно в таком порядке. 
Если Вы теперь распечатаете текст программы, то увидите, что 
все счетчики установлены в ноль. Заметим, что отношение zero 
позволяет удалить из базы данных только одно утверждение вида 

X count Y 

Нам же необходимо удалить все. Для этого предлагается ис¬ 
пользовать стандартное отношение isall. Это отношение в данном 
примере дает возможность сформировать список Y, состоящий 
из всех первых аргументов отношения count. Причем порядок 
следования этих аргументов изменится на противоположный, т, е. 



Y = (С В А). Для ускорения работы программы выполнение 
отношения reset инициируется только тогда, когда данный счет¬ 
чик не установлен в ноль, т. е. когда второй аргумент утвержде¬ 
ния count не равен нулю. 

Упражнение 3.11 

а. Удалите условие 

if A upcount 

из отношения date и добавьте его к первому правилу отношения 
age. Кроме того, добавьте второй счетчик В ко второму правилу 
отношения age. 

б. Составьте запрос, который даст возможность определить, 
сколько раз каждое правило, образующее отношение age, ис¬ 
пользуется для определения возраста всех тех людей, информация 
о которых имеется в базе данных. 

в. Попробуйте объяснить, почему данные о возрасте людей 
не выводятся в том же порядке, в котором расположены имена 
этих людей в базе данных. 


3.6. УВЕЛИЧЕНИЕ СКОРОСТИ И ЭФФЕКТИВНОСТИ 
ПРОГРАММ 

Изложим ряд соображений, которые могут быть сделаны на 
основе анализа использования счетчиков в предыдущей программе. 

1. При определении возраста частота применения тех или 
иных правил зависит от того, чей возраст определяется. 

2. Последовательность размещения выводимых на печать ре¬ 
зультатов не совпадает с последовательностью размещения ин¬ 
формации в базе данных. 

3. Последовательность размещения результатов может изме¬ 
ниться, если изменится текущая дата. Проверить это достаточно 
просто; для этого необходимо следующим образом выбирать теку¬ 
щую дату: сначала она должна предшествовать дате какого- 
нибудь дня рождения, затем совпадать с ней и, наконец, следовать 
за ней. Но учтите, что в каждый момент времени в базе данных 
должна находиться только одна дата. 

4. Последовательность размещения результатов изменится, 
если поменять местами первое и второе утверждения отношения 
age. 

Значительно большими диагностическими возможностями об¬ 
ладают специальные программы трассировки, входящие в состав 
системы программирования микроПролог. Максимально возмож¬ 
ную информацию обеспечивает, например, программа SIMTRACE. 
Поскольку для этой программы требуется довольно много па- 
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мяти, перед ее использованием удалите из памяти все, что там 
было, и введите программу, приведенную ниже. 


Betty bom (3 5 1950) 

Joe bom (23 9 1917) 

ВШ bom (22 9 1943) 

Isabel bom (219 1942) 

X age Y if 

X bom (Z x y) and 
date now (z XI Yl) and 

(either x LESS XI and / or x leq XI and Z leq z) and 
SUM (Y у Yl) 

X age Y if 

X bom (Z x y) and 
date now (z XI Yl) and 

(either XI LESS x and / or XI leq x and z LESS Z) and 
SUM (ZI у Yl) and 
SUM (Y 1 Zl) 

X leq X 
X leq Y if 

X LESS Y 

date now (22 9 1985) 


Тестовый запрос для этой программы и ответы на него будут 
выглядеть так: 

all (х у: х age у) 

Betty 35 
Bill 42 
Isabel 45 
Joe 67 
No (more) answers 


Даты рождения людей выбраны таким образом, чтобы они не 
посредственно предшествовали и следовали за текущей датой — 
(22 9 1985). Это будет гарантировать участие в обработке запроса 
всех правил. После того как у Вас появилась уверенность в пра¬ 
вильности программы, удалите из памяти модули program-mod 
и errmess-mod с помощью команды KILL. Затем используйте 
команду LOAD для того, чтобы загрузить на свободное место 
программу трассировки SIMTRACE. В том случае, если памяти 
все же окажется недостаточно, попробуйте удалить из модуля 
query-mod любые из следующих отношений: which, all, one, is, 
lood, save, -f, —, %, *, CONS, reserved, true-of и defined. 

Естественно, после этого использовать в запросах те отноше¬ 
ния, которые Вы удалили, будет нельзя. Для того чтобы получить 
полную информацию о процессе обработки запроса, введите 


all-trace (х у: х age у) 



Ниже приведен-протокол диалога между пользователем и ЭВМ: 


& all-trace (х yi х age у) 

[& полная трассировка (х у: х имеет возраст у) 

(1): X age Y trace ? у 

1(1): X имеет возраст Y трассировка ? да] 

matching (1) : X age Y with head of 1 : Z age x 

[сопоставление (1) : X имеет возраст Y с головой правила 1 : Z 

имеет возраст х] 

match succeeds : X age Y 

[сопоставление завершено успешно i X имеет возраст Y] 
new query : X born (Y Z x) and date now (y z XI) and 
[новый запрос і X родился (Y Z x) и текущая дата (у z XI) и] 
(either Z LESS z and/or Z leq z and Y leq y) and SUM (Yl x XI) 
[(либо Z LESS z and /либо Z меньше или равно z и Y меньше 
или равно у) и SUM (Yl х XI)] 

(1 1) X born (Y Z х) trace ? у 

1(1 1) X родился (Y Z х) трассировка ? да] 

matching (1 1) : X born (Y Z x) with head of 1 : Betty bom 

(3 5 1950) 

[сопоставление (1 1) : X родился (Y Z x) в головой правила 
1 ! Бетти родилась (3 5 1950)] 
match succeeds i Betty born (3 5 1950) 

[сопоставление успешно завершено ! Бетти родилась (3 5 1950)] 
(1 1) solved I Betty bom (3 5 1950) 

[(1 1) результат сопоставления! Бетти родилась (3 5 1950)] 

(2 1) i date now (X Y Z) trace ? у 

[(2 1) I текущая дата (X Y Z) трассировка? да] 

matching (2 1) i data now (X Y Z) with head of 1 ; date now 

(22 9 1985) 

[сопоставление (2 1) i текущая дата (X Y Z) с головой пра¬ 
вила 1 i текущая дата (22 9 1985) ] 
match succeds i date now (22 9 1985) 

[сопоставление успешно завершено : текущая дата (22 9 1985)] 
(2 1) solved : date now (22 9 1985) 

[(2 1) результат сопоставления : текущая дата (22 9 1985) ] 

(3 1) : (either 5 LESS 9 and/or 5 leq 9 and 3 leq 22) trace ? у 
[(3 1) : (либо 5 LESS 9 и/либо 5 меньше или равно 9 и 3 меньше 
или равно 22) трассировка ? да] 

(3 1) either branch 

[(3 1) ветвление либо-либо] 

(1 3 1) : 5 LESS 9 
[(1 3 1) : 5 LESS 9] 

(1 3 1) solved : 5 LESS 9 

[(1 3 1) результат сопоставления : 5 LESS 9] 

(231):/ 

[(2 3 1):/] 

(2 3 1) solved : / 



1(2 3 1) результат сопоставления : /] 

(3 1) solved : (either 5 LESS 9 and/or 5 leq 9 and 3 leq 22) 

[(3 1) результат сопоставления : (либо 5 LESS 9 и/либо 5 
меньше или равно 9 и 3 меньше или равно 22) ] 

(4 1) : SUM (X 1950 1985) 

[(4 1) : SUM (X 1950 1985)] 

(4 1) solved : SUM (35 1950 1985) 

[(4 1) результат сопоставления : SUM (35 1950 1985)] 

(1 1) solved i Betty age 35 

[(1 1) результат сопоставления ! возраст Бетти — 35] 

Betty 35 
[Бетти 35] 
backtracking ... 

[возврат для поиска альтернативных вариантов ...] 

(4 1) failing : SUM (X 1950 1985) 

[(4 1) неудача : SUM (X 1950 1985)] 

(3 1) failing : (either 5 LESS 9 and/or 5 leq 9 and 3 leq 22) 

[(3 1) неудача : (либо 5 LESS 9 и/либо 5 меньше или равно 9 
и 3 меньше или равно 22)] 
retrying (2 1) 

[снова попробовать (2 1)] 

(2 1) failing: date now (X Y Z) 

[(2 1) неудача : текущая дата (X Y Z)] 
retrying (1 1) 

[снова попробовать (1 1)] 

matching (1 1) : X born (Y Z x) with head of 2 : Joe born 
(23 9 1917) 

[сопоставление (1 1) : X родился (Y Z x) с головой правила 
2 : Джо родился (23 9 1917)] 
match succeeds : Joe born (23 9 1917) 

[сопоставление успешно завершено: Джо родился (23 9 1917)] 

(1 1) solved: Joe born (23 9 1917) 

[(1 1) результат сопоставления : Джо родился (23 9 1917)] 

(2 1) date now (X Y Z) trace? 

[(2 1) : текущая дата (X Y Z) трассировка?] 

Многоточие в протоколе заменяет текст длинного условия, 
которое автору просто не захотелось здесь приводить. Наверное, 
читателю уже ясно, что пользователь должен вводить «у» в том 
случае, когда хочет продолжить трассировку. Как видно из про¬ 
токола, сначала проверяется, существует ли в программе опреде¬ 
ление отношения, заданного в запросе; затем проверяется, 
имеется ли в программе отношение, являющееся первым в усло¬ 
вии. Если одна из этих проверок оканчивается неудачей, вы¬ 
дается сообщение об ошибке. Но в данном случае все в порядке, 
и процесс трассировки продолжается. 

Используемые во время трассировки утверждения и условия - 
помечаются номерами, заключенными в скобки. Например, (1 1) — 




первое утверждение в первом условии, (2 1) — второе утвержде¬ 
ние в первом условии и т. д. Для предложений сложной струк¬ 
туры потребуется более двух номеров. Например, (1 3 1) — первая 
часть третьего утверждения в первом условии; в данном случае 
такой номер появляется, когда анализируется конструкция 
(either ... or...). 

В результате проверки каждого условия формируется сообще¬ 
ние либо об успехе, либо о неудаче. В случае успеха решения 
помещаются в стек. Если весь процесс обработки запроса завер¬ 
шается успешно, программа выдает ответ и, используя механизм 
возврата, приступает к поиску альтернативных решений. В слу¬ 
чае неудачи при проверке какого-то условия весь процесс только 
тогда считается неудачным, когда нет альтернативного варианта, 
задаваемого конструкцией (either ... or ). Управление возвра¬ 
том с помощью правильно сконструированных определений отно¬ 
шений и запросов позволяет программисту в ряде случаев значи¬ 
тельно увеличить эффективность работы программы. 

В нашем примере возврат для поиска альтернативных вариан¬ 
тов осуществляется в следующих случаях. 

(4 1). Здесь поиск альтернатив для SUM (X 1950 1985) 
сразу же заканчивается неудачей, поскольку существует един¬ 
ственное значение X, для которого справедливо 

X + 1950 = 1985. 

(2 1). Здесь производится попытка найти отличный от 
(22 9 1985) список (X Y Z), который содержится в предложе¬ 
нии вида 

date now (X Y Z) 

Эта попытка также заканчивается неудачей, так как такой список 
только один — (22 9 1985). Но если было бы введено несколько 
предложений, определяющих отношение date now, то все они 
использовались бы для поиска решений, связанных с определе¬ 
нием возраста Бетти. 

(3 1). Здесь ищется альтернативное решение для первой части 
конструкции (either ... or...). 

Несколько слов необходимо сказать о том, как использование 
отношения «/» позволяет увеличить эффективность обработки за¬ 
проса. Переход к отношению «/» означает, что возврат ко всем 
предшествующим условиям, сопоставление которых прошло 
успешно, запрещен. Кроме того, что также очень важно, ни одно 
из условий, стоящих после «/», в тех случаях, когда условия, 
предшествующие «/», доказаны, не анализируется. Пока в ка¬ 
честве главной причины неэффективности нашей программы можно 
отметить следующее: пытаясь ответить на запрос X age Y, про¬ 
грамма каждый раз осуществляет сопоставление 

date now (X Y Z) 



с соответствующим предложением программы и постоянно ис¬ 
пользуется возврат для поиска альтернативных дат, которых 
заведомо нет. Это в принципе не слишком опасно, поскольку при¬ 
водит к неудаче только один раз. Гораздо серьезнее следует от¬ 
носиться к возврату, который возникает в тех случаях, когда 
часть проверяемых условий удовлетворяется *. Отметим жела¬ 
тельность выполнения какой-то операции, позволяющей про¬ 
грамме оптимально организовывать доступ к текущей дате. 

Если проследить за работой программы в процессе опреде¬ 
ления возврата Джо с помощью первого правила отношения age, 
то можно увидеть причины, порождающие значительно большую 
неэффективность. Все в принципе хорошо до тех пор, пока не 
достигается условие (either ... or...). Процесс обработки запроса 
после достижения этого условия показан ниже: 

(3 1) : either branch 

[(3 1) ветвление либо-либо] 

(1 3 1) : 9 LESS 9 
[(1 3 1) : 9 LESS 9] 

(13 1): failing : 9 LESS 9 
[(1 3 1) : неудача : 9 LESS 91 
(3 1) : or branch 
[(3 1) : ветвление или] 

(1 3 1) і 9 leq 9 trace ? у 

[(1 3 1) : 9 меньше или равно 9 трассировка ? да] 
matching (1 3 1) і 9 leq 9 with head of 1 : X leq X 
[сопоставление (1 3 1) : 9 меньше или равно 9 с головой пра¬ 
вила 1 : X leq X] 

(1 3 1) solved : 9 leq 9 

[(1 3 1) результат сопоставления: 9 меньше или равно 9] 

(2 3 1): 23 leq 22 trace ? у 

1(2 3 1) і 23 меньше или равно 22 трассировка ? да] 
matching (2 3 1): 23 leq 22 with head of 1 : X leq X 

[сопоставление (2 3 1) : 23 меньше или равно 22 с головой 

правила 1 : X меньше или равно X ] 
match fails 

[сопоставление оканчивается неудачей) 

matching (2 3 1): 23 leq 22 with head of 2 : X leq Y 

[сопоставление (2 3 1) : 23 меньше или равно 22 с головой 

правила 2 : X меньше или равно Y ] 

match succeeds 23 leq 22 

[сопоставление успешно завершено : 23 leq 22] 
new query : 23 LESS 22 
[новый запрос : 23 LESS 22] 

(1 2 3 1) : 23 LESS 22 


* Или, что то же самое, часть подцелей удается сопоставить с утверждениями 
программы. — Прим. пер. 



[(1 2 3 1) : 23 LESS 22 J 
(12 3 1) fails ! 23 LESS 22 
[(1 2 3 1) неудача s 23 LESS 221 
retrying (2 3 1) 

[снова попробовать (231)] 

(2 3 1) failing : 23 leq 22 

[(2 3 1) неудача : 23 меньше или равно 22] 

retrying (1 3 1) 1 9 leq 9 with head of 2 : X leq Y 

[снова попробовать (1 3 1) : 9 меньше или равно 9 с головой 

правила 2 s X меньше или равно Y] 

match succeeds j 9 leq 9 

[сопоставление успешно завершено • 9 меньше или равно 9] 
new query 9 LESS 9 
[новый запрос 9 LESS 9] 

(1 1 3 1) i 9 LESS 9 
[(1 1 3 1) : 9 LESS 9] 

(113 1) failing : 9 LESS 9 
[(1 1 3 1) неудача ! 9 .LESS 9] 
retrying (131) 

[снова попробовать (1 3 1)] 

(1 3 1) failing : 9 leq 9 

[(1 3 1) неудача : 9 меньше или равно 9] 

(3 1) failing : (either 9 LESS 9... etc..,) 

[(3 1) неудача ; (либо 9 LESS 9... и т. д. ...)] 

(2 1) failing i date now (X Y Z) 

[(2 1) неудача i текущая дата (X Y Z)] 
retrying (1 1)... 

[снова попробовать (1 1)...] 

Может показаться, что хороший механизм обработки запро¬ 
сов в данном случае приносит больше вреда, чем пользы. Ведь 
программа вынуждена оценивать каждое условие в конструкции 
(either... or...); причем все процессы сопоставления оканчиваются 
неудачей. После этого управление вновь передается первому 
утверждению в первом условии (1 1), т. е. делается попытка 
найти новое значение X, которое содержится в утверждении типа 

X born (Y Z х) 

С помощью первого правила отношения age возраст Джо 
определить не удается. И то, что сопоставление некоторых подце¬ 
лей в процессе использования этого правила будет успешным, 
только приведет к лишним затратам времени. После этого про¬ 
грамма будет осуществлять поиск возраста Билла и Изабеллы. 
Для этого потребуется произвести минимальное число возвратов', 
поскольку решения будут найдены с помощью первого правила. 

Таким образом найдена вторая наиболее важная причина 
неэффективной работы программы. Она заключается в следующем: 
второе правило отношения age применяется не только к Джо, но 



Номера 

утверждений 

(11) 


Состояние Комментарии 

I born 1 I Бетти родилась 
I-г—-1 (2 5 1950) 


Текущая дата 
(22 9 1985) 


5<9 


1985-1950 = 35 


POP Результат 


Состояние 



I born 1 




Печать 
Betty 35 


Отношение ’/“ 
препятствует 
осуществлению 
Возврата 


I born 1 I 


I born 2 I 






Нет альтернатив¬ 
ных вариантов 

PUSH 
born 2 


Рис. 3.3. Изменение состояния сте¬ 
на в процессе реализации меха¬ 
низма возврата 


Рис. 3.2. Процесс изменения состоя¬ 
ния стена во время обработки за¬ 
проса 


и к трем другим именам тоже, поскольку программе не известно, 
что решение не может быть найдено с помощью второго правила, 
если оно обнаружено с помощью первого правила. Другими 
словами, не учитывается, что правила являются взаимно исклю¬ 
чающими . 

Для того чтобы преодолеть указанные выше недостатки, можно 
воспользоваться несколькими приемами. Рассмотрим только два 
из них. 

1. Можно использовать два правила agel и age2 вместо уже 
имеющихся и, кроме того, ввести новое третье правило, которое 
даст возможность выбрать либо agel, либо age2. Это третье пра¬ 
вило будет иметь вид 

X age Y if 

(either X agel Y and/or X age2 Y). 

В данном случае отношение «/» позволяет предотвратить исполь¬ 
зование age2, если использование agel завершилось успешно. 

2. Можно на основе двух правил отношения age сконструи¬ 
ровать одно. Причем сделать это надо таким образом, чтобы кан¬ 
дидат на решение, удовлетворяющий двум первым условиям: 

X born (Z х у) 


4 Макаллистер Дж. 
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и 

date now (z XI Yl) 

в том случае, еели он не удовлетворяет остальным условиям 
первого правила, сразу же использовался для проверки остав¬ 
шихся условий второго правила. 

Перед тем как идти дальше, наверное, полезно проследить, 
как меняется содержимое стека в процессе обработки запроса 
(рис. 3.2 и 3.3). Изображенное на этих рисунках не следует ин¬ 
терпретировать как точную копию состояний памяти — скорее 
рисунки дают обобщенную картину выполняемых процессов. 
Центральный столбец на рис. 3.2 отражает структуру стека на 
разных этапах обработки запроса; левый столбец содержит со¬ 
ставные номера утверждений, используемые и программой трас¬ 
сировки; и, наконец, правый столбец содержит информацию о по¬ 
следнем помещенном в стек элементе. Отметим, что, анализируя 
рисунки, необходимо учитывать существование специальных вну¬ 
тренних кодов, используемых для представления различных 
элементов, помещенных в стек. 

Элементы попадают в стек именно в том порядке, в котором 
они обрабатываются программой; поэтому первым, помещенным 
в стек, элементом является 

bom 1 

Это обозначает не что иное, как первое утверждение отношения 
born, которое в конце концов будет интерпретироваться как 
Betty born (2 5 1950) 

Затем в стек будет помещен элемент now 1 — первое утвер¬ 
ждение (оно одновременно и единственное) отношения now. 
После него — 5 LESS 9, затем символ «/», используемый для 
предотвращения возврата при поиске альтернативных вариан¬ 
тов, и, наконец, будет получено решение 35 = 1985 — 1950. 
Заключительное состояние стека перед возвратом изображено 
в нижней части рис. 3.2. Именно последний помещенный в стек 
элемент обеспечивает ответ на запрос, который будет выглядеть 
так: 

Betty age 35 

На рис. 3.3 показано изменение состояний стека в резуль¬ 
тате операций, выполняемых в процессе возврата. Последний 
элемент, представляющий собой отношение SUM, выталкивается 
из стека и повторно не обрабатывается, поскольку альтернатив¬ 
ных решений для него нет. Если бы альтернативное решение су¬ 
ществовало, оно помешалось бы в стек и печаталось. Следующим 
выталкиваемым из стека элементом является условие (either ... 
or ...), но присутствие отношения «/» предотвращает на данном 
шаге выполнение возврата для поиска альтернативных вариан¬ 
тов. В конце концов из стека выталкивается born 1 и следом за 
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этим б стек сразу же помещается born 2. Далее повторяется про¬ 
цесс, аналогичный изображенному на рис. 3.2, и так продол¬ 
жается до тех пор, пока все утверждения, описывающие отно¬ 
шение born, не будут исчерпаны. В результате использования 
первого утверждения отношения age никаких новых решений, 
кроме 

Betty born (2 5 1950) 

получено не будет. После этого аналогичная процедура повто¬ 
ряется для второго утверждения отношения age. 

Заметим, что с помощью программы трассировки пользова¬ 
телю удается получить очень много различной информации. 

В связи с этим можно рекомендовать начинающим использо¬ 
вать ее для своих собственных преимущественно небольших 
программ, написанных на Прологе. Ведь хорошая техника про¬ 
граммирования может быть приобретена лишь при условии по¬ 
нимания причин, обусловливающих неэффективность работы про¬ 
граммы. 

Ниже приведена более эффективная программа, позволяющая 
определить возраст по дате рождения и текущей дате: 

Betty born (3 5 1950) 

Joe bom (23 9 1912) 

Bill bom (22 9 1943) 

Isabel bom (21 9 1942) 

XleqX 
X leq Y if 

X LESS Y 
X age Y if 

X bom (Z x y) and 

(either (either x LESS 9 and / or x leq 9 and Z leq 22 and /) and 
SUM (Y у 1985) and / or SUM (Y у 1984)) 


Возможность создания такой программы появилась только 
после изучения протокола трассировки первоначальной версии 
программы, выполняющей ту же самую функцию. Отметим глав¬ 
ные преимущества последнего варианта программы. Во-первых, 
отношение age определяется теперь с помощью только одного ут¬ 
верждения; во-вторых, следует определять текущую дату и, в- 
третьих, те люди, чьи дни рождения в текущем году еще не про¬ 
шли, распознаются автоматически, поскольку данные о них не 
удовлетворяют первой части правила. Информацию о текущей 
дате можно включить в правило с помощью отношения update, 
использующего, в свою очередь, отношение is-told. Но если Вам 
необходимо провести трассировку, то лучше все же избежать 
хотя бы временно применения отношения update, что позволит 
сэкономить память. Ниже приводится часть протокола трасси¬ 
ровки последней версии программы: 
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all-trace (x у: x age y) 

[полная трассировка (x у: x имеет возраст y)J 

(1) : X age Y trace ? у 

[(1) : X имеет возраст Y трассировка ? да] 

matching (1) : X age Y with head of 1 : Z age x 

[сопоставление (1) : X имеет возраст Y с головой правила 

(1) : Z имеет возраст х| 

match succeeds : X age Y 

[согласование успешно завершено : X имеет возраст Y ] 
new query : X born (Y Z x) and (either (either Z LESS 9 and/or 
Z leq 9 

[новый запрос : X родился (Y Z x) и (либо (либо Z LESS 9 
и/либо Z меньше или равно 91 

and Y leq 22 and/) and SUM (y x 1985) and/or SUM (y x 1984)) 
[и Y меньше или равно 22 и / ) и SUM (у х 1985) и/либо (у х 
1984))] 

(1 1) : X born (Y Z х) trace ? у 

[(1 1) : X родился (Y Z х) трассировка ? да] 

matching (1 1) : X born (Y Z x) with head of 1 : Betty born 

(3 5 1950) 

[сопоставление (1 1) : X родился (Y Z x) с головой правила 
1 : Бетти родилась (3 5 1950)] 
match succeeds : Betty born (3 5 1950) 

[сопоставление успешно завершено : Бетти родилась (3 5 1950) ] 
(1 1) solved : Betty born (3 5 1950) 

[(1 1) результат сопоставления : Бетти родилась (3 5 1950)] 
(2 1) : (either (either 5 LESS 9 and/or 5 leq 9 and 3 leq 22 and /) 
and 

[(2 1): (либо (либо 5 LESS 9 и / либо 5 меньше или равно 9 
и 3 меньше или равно 22 и /)и ] 

SUM (X 1950 1985) and/or SUM (X 1950 1984)) trace? (у /n) у 
[SUM (X 1950 1985) и / либо SUM (X 1950 1894)) трассировка ? 
(да/нет) да] 

(2 1) either branch 

[(21) ветвление либо-либо] 

(12 1): (either б LESS 9 and/or 5 leq 9 and 3 leq 22 and/) trace ? 
(У /n) У 

[(1 2 1) : (либо 5 LESS 9 и/либо 5 меньше или равно 9 и 3 
меньше или равно 22 и /) трассировка ? (да/нет) да] 

(12 1) either branch 

[(1 2 1) ветвление либо-либо] 

(1 1 2 1) : 5 LESS 9 
[(1 1 2 1) : 5 LESS 9] 

(112 1) solved : 5 LESS 9 

[(1 1 2 1) результат сопоставления : 5 LESS 9] 

(2121):/ 

[(2 12 1 ):/] 

(2 12 1) solved : / 
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[(2 1 2 1) результат сопоставления : / I 

(12 1) solved : (either 5 LESS 9 and/or 5 leq 9 and 3 leq 22 
and/) 

1(1 2 1) результат сопоставления : либо 5 LESS 9 и/либо 5 
меньше или равно 9 и 3 меньше или равно 22 и/] 

(2 2 1): SUM (X 1950 1985) 

1(2 2 1) : SUM (X 1950 1985) I 
(2 2 1) solved : SUM (35 1950 1985) 

[(2 2 1) результат сопоставления : SUM (35 1950 1985)] 
(321):/ 

1(3 2 1):/] 

(3 2 1) solved : / 

[(3 2 1) результат сопоставления : / ] 

(2 1 solved : (either (either 5 LESS 9 and/or 5 leq 9 and 3 leq 22 
and/) 

[(2 1) результат сопоставления : (либо/либо 5 LESS 9 и/либо 5 
меньше или равно 9 и 3 меньше или равно 22 и/) ] 

(1) solved : Betty age 35 

[(1) результат сопоставления : Бетти имеет возраст 35] 
Betty 35 
[Бетти ] 

backtracking ... 

[возврат для поиска альтернативных вариантов ...] 

(2 1) failing (either (either 5 LESS 9 and/or 5 leq 9 and 3 leq 
22 and/) 

[(2 1) неудача : (либо (либо 5 LESS 9 и/либо 5 меньше или 

равно 9 и 3 меньше или равно 22 и/)] 

and SUM (X 1950 1985) and/or SUM (X 1950 1984)) 

[и SUM (X 1950 1985)) и/либо SUM (X 1950 1984))] 
retrying (1 1) 

[снова попробовать (1 1)] 

Далее приводится текст отношения update, использование 
которого позволяет пользователю вводить нужную ему дату: 

update X if 

age KILL and 

(date now (Y Z x) is-told) and 
SUM (у 1 x) and 

(z age XI if z born (Y1 Z1 xl) and (either (either Z1 LESS Z and / 
or Z1 leq Z and Y1 leq Y and /) and SUM (XI xl x) and / or SUM 
(XI xl y))) add 

Чтобы использовать отношение update, необходимо ввести 
all (х: update х) 

[ определить все (х : модифицировать х) ] 

Отметим, что х — это фиктивная переменная, поэтому в ре¬ 
зультате обработки запроса никакого ответа получено не будет. 
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Но зато данные, составляющие новую дату, будут включены в от¬ 
ношение age. 

Анализ протокола трассировки позволяет заключить, что по¬ 
пытки осуществить возврат с целью поиска альтернативных ре¬ 
шений в соответствии с конструкцией (either ... or ...) сразу 
игнорируются из-за присутствия отношения «/». 


3.7. РЕКУРСИВНЫЕ ОПРЕДЕЛЕНИЯ 

Как уже отмечалось, рекурсия является одним из средств 
описания отношений. Недостаток, свойственный рекурсивным 
определениям, заключается в том, что в процессе обработки за¬ 
проса размер стека может расти очень быстро, поскольку преду¬ 
смотрено сохранение частичных решений. Наиболее часто для 
иллюстрации рекурсивного отношения используется отношение, 
позволяющее вычислить факториал числа. Факториал опреде¬ 
ляется так: 

N ! = (N) (N - 1) (N - 2) ... (3) (2) (1) 
т. е. 4! = 4x3x2 ХІ =24. Факториал 1 равен 1. Теперь можно 
сформировать отношения для вычисления факториала 

1 fact 1 
X fact Y if 

1 LESS X and 
SUM (Z 1X) and 
Z fact x and 
TIMES (XxY) 

Для проверки работы правил, описывающих это отношение, можно 
использовать следующий тест: 
all (х: 4 fact х) 

[определить все (х: 4 fact х)] 

24 

[24] 

No (more) answers 
[Ответов (больше) нет] 

Ниже приведен протокол работы программы *, получаемый 
в ответ на запрос: 

all = trace (х: 3 fact х) 

Отметим только, что в нем опущены строки, в которых сообщается 
об успешном сопоставлении переменных. Это сделано не столько 
с целью экономии места, сколько для того, чтобы попытаться скон- 


* Этот протокол не снабжается переводом, поскольку, если читатель внима¬ 
тельно изучил предыдущие протоколы трассировок, он без труда разберется и 
в этом. — Прим. пер. 
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центрировать внимание читателей на операциях go стеком и про¬ 
цессах возврата. 


(1 1): 1 LESS X 
(11) solved : 1 LESS 3 
(2 1) SUM (X 1 3) 

(2 1) solved : SUM (2 1 3) 

(І 3 1): 1 LESS 2 

(1 3 1) solved : 1 LESS 2 

(2 3 1): SUM (X 1 2) 

(2 3 1) solved : SUM (1 1 2) 

(3 3 1) solved : 1 fact 1 
(4 31): TIMES (2 1 X) 

(4 3 1) solved: TIMES (2 1 2) 

(3 1) solved 2 fact 2 
(4 1) TIMES (3 2 X) 

(4 1) solved: TIMES (3 2 6) 

(1) solved : 3 fact 6 
backtracking... 

(4 1) failing... 

(4 3 1) failing... 

(1 3 3 1): 1 LESS 1 
(13 3 D.failing : 1 LESS 1 
retrying (3 3 1) 

(3 3 1) failing : 1 fact X 
(2 3 1) failing : SUM (X 1 2) 

(1 3 1) failing : 1 LESS 2 
retrying (3 1) 

(3 1) failing : 2 fact X 
(2 1) failing : SUM (X 1 3) 

(1 1) failing : 1 LESS 3 
retrying (1) 

(1) failing : 3 fact X 
No (more) answers 

В процессе вычисления N1 отношения LESS и SUM исполь¬ 
зуются для каждого из чисел: N, N-l, N-2, ...2, 1. Результаты 
сопоставления каждый раз помещаются в стек, хотя в данном 
случае никаких альтернативных вариантов сопоставления за¬ 
ведомо не существует. N раз используется и отношение TIMES. 
Результаты его работы также попадают в стек. Ясно, что в про¬ 
цессе вычисления факториала для больших чисел размер стека 
будет расти очень быстро. Кроме того, значительное время будет 
тратиться на реализацию возвратов. Таким образом, можно ска¬ 
зать, что для работы с рекурсивными определениями отношений, 
аналогичными определенному выше, потребуется память, объем 
которой пропорционален числу обращений к рекурсивному пра¬ 
вилу. В данном случае для вычисления факториала потребуется 
память, объем которой пропорционален N, где N — число, факто¬ 
риал которого определяется. 



Рис. 3.4. Процесс изменения состояния стека во время вы¬ 
числения факториала числа 3 


Отметим, что у читателя может вызвать удив¬ 
ление тот факт, что рядом е условиями (1 1), 
(2 1), (3 1) и другими после осуществления воз¬ 
врата появляется сообщение: «failing» (неудача), 
в то время как ранее выполнение этих условий за¬ 
вершалось успешно. Дело в данном случае в том, 
что при осуществлении возврата Пролог-система 
старается найти решения, отличные от тех, ко¬ 
торые привели к успешному сопоставлению. 

На рис. 3.4 показано содержимое стека в процессе вычисле¬ 
ния факториала числа 3. Механизм возврата начнет работать 
именно тогда, когда число элементов в стеке достигнет девяти. 
Все элементы по очереди будут выталкиваться из стека, поскольку 
любые попытки поиска альтернативных вариантов обречены на 
неудачу. 

Но если стек растет так быстро при вычислении всего-навсего 
3!, то размеры его станут поистине гигантскими при определе¬ 
нии факториалов больших чисел. 

Мы уже рассказывали читателям об отношении «/». Напомним, 
что оно может использоваться для того, чтобы программа могла 
считать условия, сопоставление которых прошло успешно, не под¬ 
лежащими дальнейшей проверке, т. е. для того, чтобы предотвра¬ 
щать возвраты с целью поиска альтернативных вариантов. Такая 
процедура носит название «выталкивания в случае успеха». Ее 
реализация приводит к уменьшению размера стека за счет удале¬ 
ния из него элементов, сопоставление которых было завершено 
успешно. Рекурсия специального типа, которая называется хво¬ 
стовой *, также позволяет ограничить рост стека и строго контро¬ 
лировать процесс возврата. Это происходит благодаря очистке 
стека после успешного сопоставления условия, содержащего ре¬ 
курсию. 

Как известно, любое рекурсивное определение содержит по 
крайней мере одно нерекурсивное правило и одно или несколько 
правил с рекурсией. В большинстве случаев в определении имеется 
по одному правилу каждого типа. Считается, что используется 
хвостовая рекурсия, если последнее условие в последнем правиле 
является рекурсивным. Данное выше определение факториала 
является рекурсивным, поскольку во втором правиле исполь¬ 
зуется отношение fact. Но это не хвостовая рекурсия, так как от¬ 
ношение fact не является последним в последнем (в данном слу¬ 
чае во втором) правиле. Приведем пример определения отноше¬ 
ния, использующего хвостовую рекурсию: 


• Новый термин — хвостовая рекурсия (tail recursion). — Прим, пер. 


3 fact 6 
TIMES (326) 
2 fact 2 
TIMES(21 2) 
1 fact 1 
SUM (112) 
1 LESS 2 
SUM (213) 

1 LESS 3 
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Xin(XY) 

X in (Y Z) if 

SUM(Y lx)and 
x LESS Z and 
X in (x Z) 


Это отношение можно использовать для генерации последователь¬ 
ности чисел X, X + 1, X + 2, Z — 1. Аналогичная задача 
решалась в гл. 2 с помощью других отношений. В данном случае 
рекурсия содержится в последнем условии последнего правила. 
Ниже дан протокол трассировки 


all-trace (х: х in (1 3» 

(1): X in (1 3) trace ?у 

matching (1): X in (1 3) with head of 1: Y in (Y Z) 
match succeeds : 1 in (1 3) 

(1) solved : 1 in(l 3) 

1 

backtracking. .. 

matching (1): X in (1 3) with head of 2 : Y in (Z x) 
match succeeds : X in (1 3) 

new query : SUM (1 1X) and X LESS 3 and Y in (X 3) 
(1 1): SUM (1 IX) 

(1 1) solved: SUM (1 12) 

(2 1): 2 LESS 3 

(2 1) solved: 2 LESS 3 

(3 1): X in (2 3) trace ?y 

matching (3 10 : X in (2 3) with head of 1: Y in (Y Z) 
match succeeds : 2 in (2 3) 

(3 1) solved : 2 in (2 3) 

matching (3 1): X in (2 3) with head of 1: Y in (Y Z) 
match succeeds : 2 in (2 3) 

(3 1) solved : 2 in (2 3) 

(1) solved: 2 in (1 3) 
backtracking... 
retrying (3 1) 

matching (3 1): X in (2 3) with head of 2 : Y in (Z x) 
match succeeds : X in (2 3) 

new query : SUM (2 IX) and X LESS 3 and Yin (X3) 
(13 1): SUM (2 IX) 

(1 3 1) solved : SUM (2 1 3) 

(2 3 1): 3 LESS 3 
(2 3 1) failing : 3 LESS 3 
(1 3 1) failing : SUM (2 1 X) 
retrying (3 1) 

(3 1) failing : X in (2 3) 

(2 1) failing : 2 LESS 3 
(1 1) failing SUM (1 1 X) 
retrying (1) 

(1) failing :X in (1 3) 

No (more) answers 
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Рис. 3.5. Состояние стека в процессе обработки запроса для про 
граммы с хвостовой рекурсией 


На рис. 3.5 изображено состояние стека во время 
обработки запроса. Попробуем на этом примере разо¬ 
браться, в чем сила хвостовой рекурсии. Заметим, что 
в процессе оценки каждого числа используются три 
отношения — SUM, LESS и in. После того как 
сопоставление цели с правилом 2 успешно проведено, стек очи¬ 
щается и программа переходит к поиску следующего по порядку 
числа * до тех пор, пока сопоставление не закончится неудачей. 

Упражнение 3.12 

Составьте содержащее хвостовую рекурсию отношение для 
получения расположенной в порядке убывания последователь¬ 
ности целых чисел в интервале (X Y), причем X должно входить 
в эту последовательность. Для получения протокола трассировки 
типичного запроса используйте программу SIMTRACE. 

Упражнение 3.13 

Возрастающую последовательность можно получить, изменив 
на противоположный порядок следование правил, описывающих 
отношение іп. Можно ли считать, что это новое определение со¬ 
держит хвостовую рекурсию. Проконтролируйте работу новой 
программы с помощью SIMTRACE. 

Значительный эффект может принести использование отноше¬ 
ний с хвостовой рекурсией в работе со списками. В приложении 
книги «Руководство по микроПрологу» приводится пример отно¬ 
шения APPEND, содержащего хвостовую рекурсию: 

append (() X X) 

append ((X Y) Z (X х) if 
append (Y Z x) 

В руководстве отмечается, что размер стека не зависит от длины 
обрабатываемого списка. 


2 in (1 3) 

2 in (2 з; 

2 LESS 3 
SUM (112) 

1 in (13) 


3.8. ХВОСТОВАЯ РЕКУРСИЯ И СПИСКИ 

В этом разделе методы хвостовой рекурсии будут использо¬ 
ваны в программах, предназначенных для хранения и обработки 
данных о людях (см. гл. 2 и 3). Предположим, что необходимо хра¬ 
нить и уметь организовывать доступ к данным о людях, которые 


* Можно добавить, что в стеке в любой момент времени находится не более 
двух отношений SUM и LESS. — Прим. пер. 
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Таблица 3.3 



Car ins. 
(Страхов- 

а биль° 

Шалог 

(Личная 

ховка) 

(Страхов- 

эдание) і 

(Лицен- 

TB) 

э <Взнос 

Alan (Алан) 

(20 3) 

(9 6) 

(20 3) 

0 

0 

0 

Betty (Бетти) 

(15 8) 

(24 9) 

(6 10) 

(30 7) 

(1 11) 

(4 5) 

Colin (Колин) 

0 

0 

0 

0 

(22 11) 

(5 9) 


ежегодно оплачивают следующие счета: страховку за автомобиль, 
личную страховку, страховку за здание, лицензию на право поль¬ 
зования телевизором, налог на автомобиль и взносы за членство 
в клубе или какой-то профессиональной ассоциации. Любой 
человек может иметь счет по конкретной позиции, а может и не 
иметь. Нас будут интересовать месяц и число погашения счета и 
не будут — год и размер счета. Представляем все эти данные 
в виде табл. 3.3. 

Отсутствие информации между скобками говорит о том, что 
данному человеку по данной позиции счет не выставляется. От¬ 
метим, что в дальнейшем в случае необходимости данные, содер¬ 
жащиеся в табл. 3.3, могут быть изменены. Легко организовать 
хранение всех данных в следующей форме: 

Alan data ((20 3) (9 6) (2 0 3) ( ) ( ) ( )) 

Betty data ((15 8) (24 9) (6 10) (30 7) (1 11) (4 5)) 

Colin data (()()()() (22 11) (5 9)) 

Допустим, что необходимо уметь извлекать из программы следую¬ 
щую информацию: 

1. Каковы имена людей, которые погасили все счета, и какова 
дата оплаты? 

2. Какие счета погашены на текущий день? 

3. Кто погасил счет данного типа и какова дата оплаты? 

4. Кто не погасил счет данного типа? 

5. Кого необходимо предупредить о том, что счет по заданной 
позиции должен быть погашен в течение определенного числа 
дней? 

Ранее уже были даны оценки тем методам, которые можно по¬ 
ложить в основу организации программы, позволяющей ответить 
на аналогичные запросы. Например, в данном случае можно сфор¬ 
мировать для счета каждого типа отдельные отношения или ис¬ 
пользовать для поиска данных процесс сопоставления со списком 
данных в отношении data. Последний метод можно реализовать 
с помощью отношений типа 


X car ins Y if 

X data (Y I Z) 
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Идея еще одного метода заключается в помещении списка ти¬ 
пов счетов в унарное отношение 

bill ((саг ins) (car tax) (life ins) (home ins) (tv) (club)) 

Теперь необходимо связать тип счета с именем человека и'датой 
оплаты. Это можно сделать, если удастся, в свою очередь, связать 
аргумент X списка счетов с аргументом списка данных определен¬ 
ной личности. Следующее отношение, использующее хвостовую 
рекурсию, позволяет связать аргументы, стоящие в списках на 
одних и тех же местах: 

(X Y) match ((X | Z) (Y | х)) 

(X Y) match ((z | х) (у | z)) if 

(X Y) match (x z) 

Здесь первое нерекурсивное правило позволяет связать головы 
списков. Второе правило дает возможность связать между собой 
элементы списков, стоящие на одних и тех же местах. Определе¬ 
ние отношения содержит хвостовую рекурсию, поскольку рекур¬ 
сивное условие стоит последним в последнем правиле. С помощью 
отношения match (связать) можно получить множество упорядо¬ 
ченных пар аргументов; первым аргументом в каждой паре яв¬ 
ляется член первого списка, вторым аргументом — связанный 
с членом первого списка член второго списка. Для проверки ра¬ 
боты отношения используется следующий тест: 

all (х у : Alan data z and bill X and (x y) match (z X)) 
[определить все (x у : Алан, данные z и счет X и (х у) связать 
(z X))] 

(20 3) (саг ins) 

[(20 3) (страховка за автомобиль)] 

(9 6) (саг tax) 

[(9 6) (налог на автомобиль)] 

(20 3) (life ins) 

[(20 3 (личная страховка)] 

( ) (home ins) 

[( ) (страховка за здание)! 

( ) (tv) 

[( ) (лицензия на ТВ) ] 

( ) (dub) 

[( ) (взнос за членство в клубе) ] 

В данном примере в виде упорядоченных пар печатаются даты 
оплат, произведенных Аланом, и связанные е ними названия сче¬ 
тов из списка счетов. 

Упражнение 3.14 

а. Составьте запрос, позволяющий определить имена вместе 
с названиями счетов и датами оплат. 
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б. Составьте запрос, аналогичный запросу, описанному в п. (а). 
Отличие заключается в том, что информация о счетах, по которым 
данный человек не платит, выводиться не должна. 

Чтобы выполнить упражнение 3.14, а, можно использовать 
новое отношение pays (оплачивает): 

X pays (Y on Z) if 
bill x and 
X data у and 
(Y Z) match (x y) 

и запрос 

all (x у z: x pays (y on z)) 

В ответ будет получено: 

Alan (car ins) (20 3) 

Alan (car tax) (9 6) 

Alan (life ins) (20 3) 

и T. д. 

Если не надо печатать названий счетов, по которым данный 
человек не производит оплат, нужно следующим образом изме¬ 
нить отношение pays: 

X pays (Y on Z) if 
bill x and 
X data у and 
(Y Z) match (x y) and 
not (Y ()) match (xy) 

t. e. в данном случае пустой список ( ) исключается из процесса 
сопоставления. Ниже приведен еще один вариант отношения, 
использование которого позволяет решить ту же задачу: 

X pays (Y on Z) if 
bill x and 
X data у and 
(Y Z) match (x y) and 
notZEQO 

В последнем варианте фигурирует отношение EQ. Напомним, 
что это отношение истинно в том случае, когда два аргумента, 
представляющие собой списки, полностью (включая порядок сле¬ 
дования элементов) идентичны. 

Упражнение 3.15 

Добавьте к программе отношение, позволяющее задавать те¬ 
кущую дату. После этого составьте отношения для определения 
счетов: 

а) погашение которых произведено только что; 


109 



б) оплата по которым будет произведена в следующем месяце; 

в) оплаты по которым будут произведены в оставшиеся дни 
текущего месяца. 

Упражнение 3.16 

Покажите, как отношение match можно использовать вместе- 
с отношением stat из разд. 3.3 для извлечения, во-первых, под¬ 
списков из основного списка и, во-вторых, информации из нуж¬ 
ного подсписка. В данном случае дело облегчается тем, что каж¬ 
дый подсписок содержит три элемента. Предусмотрите случай, 
когда подсписки будут включать различное число элементов. 

Прочитав эту главу, читатели должны понять, что список, 
или структура данных является довольно мощным средством про¬ 
граммирования. Одно из достоинств Пролога заключается в том, 
что достаточно нескольких простых примеров для того, чтобы по¬ 
казать, как могут создаваться очень большие программы. Пролог- 
система позволяет добавлять столько дополнительных данных 
или дополнительных правил, сколько можно разместить в опера¬ 
тивной памяти. Кроме того, одну и ту же программу, написан¬ 
ную на Прологе, можно использовать для решения многих раз¬ 
личных задач. Хотя уже было описано довольно много методов, 
позволяющих сопоставлять элементы, принадлежащие различ¬ 
ным спискам, читателям не составит особого труда придумать 
свои собственные. 

Долг программиста состоит в том, чтобы уметь создавать удоб¬ 
ные для сопровождения хорошо документированные программы, 
легко поддающиеся расширению и удовлетворяющие требованиям 
гибкости. Кроме того, не надо забывать, что программист постоянно 
должен заботиться о быстроте работы программы и об экономном 
расходовании памяти. В связи с этим обратим внимание на ис¬ 
пользование оператора «/»• Этот оператор позволяет за счет от¬ 
сечения альтернативных вариантов эффективно управлять воз¬ 
вратом. Аналогично метод, основанный на применении хвостовой 
рекурсии при задании отношений, дает возможность ограничить 
рост стека. Настоятельно рекомендуем читателям использовать 
именно этот метод. В качестве образцов можно взять стандартные 
отношения микроПролога; для того чтобы посмотреть правила, 
определяющие, например, отношения ON и APPEND, достаточно 
ввести команды 
LIST ON 
LIST APPEND 

Кроме того, можно распечатать тексты любых модулей, входя¬ 
щих в состав той или иной программной системы. Так, сервисная 
программа SIMPLE состоит из трех модулей: querry-mod, ег- 
rmess-mod, program-mod. Текст любого из них можно вывести 




на экран с помощью команды LIST. Напомним, что просмотр 
длинных программ можно приостановить нажатием клавиш 
SYMBOL SHIFT и А. 


Ответы к упражнениям 


Упражнение 3.1 

а) 1, (2 4), ( ), а2, 2, а; 

б) ab, abc, (a (Joe Ted) John), def 

Упражнение 3.2 

a) (THIS IS A LIST); 6) (WHAT); в) (IS); r) ab (отметим, что ab — один терм); 
Д) ab (cd). 


Упражнение 3.3 

а) all (x y: x stat y) 

б) which (x: Bill job x) 

в) all (x у z: x aged X and 30 LESS X and x job у and x earns z) 
r) all (x: Frances stat x) 

д) см. следующее упражнение. 

Упражнение 3.4 


X hobby Y if 

X stat (ZxyzXl Y1 YZ1) 

X car Y if 

X stat (ZxyzXl Y1Z1YX2) 

X music Y if 

X stat (Z x у XI XI Z1 X2 Y Y2) 

Bill stat (42 butcher 12000 23 19 7 golf Volvo jazz) 


Упражнение 3.5 

См. следующее упражнение. 

Упражнение 3.6 

а. all (X Y: X marriage (Z x y) and Y marriage (z XI y) and X LESS Y) 
В ответ на этот запрос должно быть получено: Helen, Ted. 

б. all (X Y: X work (Z x y) and Y work (z XI y) and X LESS Y) 

В ответ на этот запрос должно быть получено: Helen, Tom. 

в. all (X: X marriage (Y Z x) and X work (y z x)) Ответ — Betty. Действи¬ 
тельно, Бетти — единственная, чей стаж совпадает с числом лет, прожитых в браке. 

г. all (X: X birth (Y Z x) and X home (y z x)) 

д. all (X: X birth (Y Z x) and X home (y z x) and X work (XI Y1 x)) 

Упражнение 3.7 

Запрос, приведенный в упражнении, позволяет определить тех, кто работает 
не там, где живет, и, кроме того, тех, кто вообще не работает. Правильный за¬ 
прос можно получить, поменяв порядок следования целевых утверждений 

all (х у: х workplace у and not х homeplace у) 

Упражнение 3.8 

а) all (х у: х earns у and 8000 LESS у) 

б) all (х: х aged у and х earns z and 30 LESS у and z LESS 10000) 
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в) is (х home-no у and к work-no у) 

г) all (х: х years-in-job у and Tom years-in-job г and z LESS у) 

д) all (х: х married у and joe married z and z LESS y) 


Упражнение 3.9 

а) all (x y: x age у and Ted age z and у LESS z) 

б) считается, что в Программе присутствует утверждение 

date now (1 1 1975) 

all (ху: х age у and 18 LESS у) 

в) считается, что в программу включено утверждение 

date now (31 12 2 000) 
all (ху: х age у and у LESS 50) 

г) all (ху: х age z and у age z and * LESS y) 

д) all (xy: x age z and у age z and x LESS у and x born X and у bom X) 

е) проще всего уничтожить имеющуюся дату, ввести 

date now (1 1 1950) 

и сформировать эапрос следующего вида: 

all (х: х age у and у LESS 0) 


Упражнение 3.10 


McDoo stock (Зв 12 2Ѳв 555) 

Fee stock (598 100 3500 9760) 

Putlog stock (8900 950 7380 6875) 

X sand Y if 

X stock (Y |Z) 

X cement Y if 

X stock (ZYx) 

X blocks Y if 

X stock (ZxY|y) 

X bricks Y if 

X stock (Zxy Y|z) 

X newstock (Y Z x y) if 

X stock (zXlYlZl)and 

(X adjust (xl yl zl X2) is-told and 

SUM(Yxlz) and 

SUM (Z у 1XI) and 

SUM (x zl Yl) and 

SUM (у X2 Zl) and 

(X stock Y2) delete and 

(X stock (Y Z x у )) add and / 


Упражнение 3.11 

а) X age Y if 

A upcount and ... 

X age Y if 

В upcount and ... 

б) all (xy zX: x age у and A count z В count X) 

в) данные о возрасте людей печатаются в первую очередь, поскольку 
определяются в соответствии с первым правилом. 


они 



Упражнение 3.12 
X in (Y X) 

X in (Y Z) if 

SUM (X 1 Z) and 
Y LESS x and 
X in (Y x) 

Упражнение 3.13 

Определение не содержит хвостовой рекурсии, поскольку последнее правило 
не является рекурсивным. 

Упражнение 3.14 

а) all (х у ъ\ х pays (у on z)) 

б) можно использовать либо 

all (х у ѵ. pays (у on г) and not г EQ ( )) 


all (х у г: paus (у on z) and not х pays (у on ( ))) 

Упражнение 3.15 

Необходимо ввести в программу отношение 
date now (2 0 3) 

а) X due у if 

х pays (у on z) and 
date now z 

б) X next-month Y if 

X pays (Y on (Z x)) and 
date now (y z) and 
SUM (z 1 x) 

в) X this-raonth if 

X pays (Y on (Z x)) and 
date now (y x) and 
у LESS 
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4. ЛОГИКА 


Определить истинность логического выражения, т. е. выяс¬ 
нить, какое значение оно принимает — истина или ложь, можно 
с помощью математического аппарата, называемого исчислением 
высказываний. Результатом развития этого аппарата явилось 
исчисление предикатов, положенное в основу механизма логиче¬ 
ского вывода языка Пролог. Для представления логических 
выражений как в исчислении высказываний, так и в исчислении 
предикатов применяется символьная запись, которая также удобна 
и при отработке задачи на ЭВМ. 

В вычислительной технике термин «логика», часто исполь¬ 
зуется применительно к электронным схемам, преобразующим 
сигналы нескольких (обычно двух) уровней. Но мы подразуме¬ 
ваем под этим термином понятие, которое больше соответствует 
человеческому способу рассуждений, чем функционированию 
электронных схем. 

Объектами исчисления высказываний служат обычные пред¬ 
ложения, например: «Сегодня падал снег», «Джо любит жареную 
рыбу», «Изучить логику просто» и т. д. Об этих предложениях 
всегда можно сказать, что они истинны или ложны, т. е. прини¬ 
мают значения «истина» или «ложь». Предположим, имеется выска¬ 
зывание: «Джо любит жареную рыбу». Если Джо действительно 
предпочитает это блюдо другим, то приведенное высказывание 
принимает значение истины, в противном случае — лжи. Очевидно, 
что предложения типа «Сколько времени?» или «Проклятая ло¬ 
гика» не могут быть объектами исчисления высказываний. 

Истину и ложь в символьной записи принято обозначать со¬ 
ответственно Т (от true — истина) и F (от false — ложь). В на¬ 
стоящее время существует еще один тип логического исчисления, 
называемый нечеткой логикой. В этом исчислении можно опериро¬ 
вать с оценками степени уверенности в истинности высказываний. 
Так, например, для высказывания «Сегодня будет дождь» может 
быть определена вероятность истинности, равная 55%. В даль¬ 
нейшем указанная вероятность может быть использована в вы¬ 
числениях. Нечеткая логика сейчас широко используется в си¬ 
стемах ИИ, а особенно в такой его ветви, как экспертные системы. 
Однако описание этого вида логики выходит за пределы данной 




книги. В обычном исчислении высказываний могут быть заданы 
предложения типа «С вероятностью 55% сегодня будет дождь», 
которые могут принимать одно из двух значений —. истина или 
ложь, но какая-либо другая оценка таких высказываний в данном 
исчислении невозможна. 


4.1. КОМБИНАЦИИ ВЫСКАЗЫВАНИЙ 

Два любых высказывания можно объединить в одно с помощью 
двух основных операций: конъюнкции — логического И, обозна¬ 
чаемого AND, и дизъюнкции — логического ИЛИ, обозначае¬ 
мого OR. Так, например, высказывания «Вчера было пасмурно» 
и «Сегодня утром шел снег» можно связать конъюнкцией и полу¬ 
чить высказывание «Вчера было пасмурно и сегодня утром шел 
снег». Из тех же высказываний с помощью дизъюнкции можно 
получить следующее: «Вчера было пасмурно или сегодня утром 
шел снег». Высказывание, полученное с помощью конъюнкции, 
принимает значение истина только тогда, когда значения обоих 
входящих в него высказываний истинны. Во всех остальных 
случаях конъюнкция ложна. Дизъюнкция принимает значение 
лжи только тогда, когда оба входящих в нее высказывания ложны. 
В остальных случаях дизъюнкция равна истине. 

В логике используется также другая операция, напоминаю¬ 
щая дизъюнкцию, которая называется ИСКЛЮЧАЮЩЕЕ ИЛИ 
(XOR). Высказывание, получаемое с помощью данной операции, 
принимает значение истина при условии, что одно, и только одно, 
из входящих в него высказываний имеет значение истины. В раз¬ 
говорной речи такие высказывания часто объединяются конструк¬ 
цией «или ..., или ...», например: «Или я пойду на футбольный 
матч, или будут смотреть его прямую трансляцию по телеви¬ 
зору». Очевидно, что истинность одной составляющей исключает 
истинность другой. 

Другая важная операция, используемая в логике, — это от¬ 
рицание, логическое НЕ, обозначаемое NOT. Например, из вы¬ 
сказывания «Сегодня идет снег» можно с помощью отрицания 
получить «Сегодня не идет снег». Представление значений слож- 


Таблица 4.1 


Истинность операций AND (И), OR (ИЛИ), 
XOR (Исключающее ИЛИ) и NOT (НЕ) 
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Таблица 4.2 

Противоречие и тавтология 



Т F F Т 

F TFT 


ных высказываний для каждой возможной комбинации значений 
их составляющих осуществляется с помощью так называемых 
таблиц истинности. Например, в табл. 4.1 одновременно пред¬ 
ставлены четыре таблицы истинности для операций И (AND), 
ИЛИ (OR), исключающее ИЛИ (XOR) и НЕ (NOT). В данной 
таблице буквами Р и Q обозначаются любые два логических вы¬ 
сказывания. 

Рассмотрим логичевкие функции, представленные в табл. 4.2. 

Как видно из табл. 4.2, высказывание Р AND NOT Р 
(Р И НЕ Р) всегда принимает значение ложь, тогда как выска¬ 
зывание Р OR NOT Р (Р ИЛИ НЕ Р), наоборот, всегда имеет 
значение истина. Высказывание, всегда имеющее значение истина, 
называется тавтологией. Высказывание с постоянным значением 
ложь называется противоречием. Читатель может самостоятельно 
проверить, что высказывание, составленное с помощью операции 
XOR из высказываний Р и NOT Р, представляет собой тавтоло¬ 
гию. Другим не менее полезным упражнением будет сравнение 
таблиц истинности для высказываний Р XOR Q и Р AND NOT 
Q OR NOT P AND Q. Заметим, что следует учитывать при¬ 
оритеты логических операций: сначала выполняется отрицание 
(NOT), затем конъюнкция (AND) и, наконец, дизъюнкция (OR). 
Изменить порядок выполнения операций можно с помощью ско¬ 
бок: действия в скобках производятся в первую очередь. В том, 
что результат зависит от порядка выполнения операций, можно 
убедиться, сравнив, например, таблицы истинности для высказы¬ 
ваний NOT Р AND Q и NOT (Р AND Q). 

В заключение данного раздела еще раз напомним, что хотя 
все логические высказывания — это обычные предложения есте¬ 
ственного разговорного языка, обратное не всегда верно, т. е. 
не все предложения естественного языка могут служить логиче¬ 
скими высказываниями. Приведем еще один пример. О фразе 
«Это предложение ложно» нельзя сказать, что она имеет значение 
истина или ложь. Следовательно, данная фраза не является ло¬ 
гическим высказыванием. 

4.2. БУЛЕВА АЛГЕБРА 

Английский математик Джордж Буль (1815—1864) сформули¬ 
ровал правила для вычисления значений комбинированных логи¬ 
ческих высказываний и представил их в символьной форме. Ос- 



Таблица 4.3 

NOT (NOT P) = (PAND P) = (P OR P) = P 


T 

F 


P NOT (NOT P) 


T 

F 


T T 

F F 


новными операциями булевой алгебры являются уже знакомые 
читателю операции AND, OR и NOT от двоичных переменных, 
обозначаемых буквами латинского алфавита. Из основных свойств 
указанных операций, иллюстрируемых табл. 4.1 и 4.2, можно 
вывести следующие три правила: 

Двойное отрицание NOT (NOT Р) = Р 

Идемпотентность Р AND Р = Р, Р OR Р = Р 

Поглощение Р AND (Р OR Q) = Р 


В табл. 4.3 приведены таблицы истинности, позволяющие 
проверить правила двойного отрицания и идемпотентности. По¬ 
строение таблицы для проверки правила поглощения мы предо¬ 
ставляем читателям в качестве упражнения. 

Одним из основных принципов булевой алгебры является 
принцип двойственности, в соответствии с которым для каждого 
правила этой алгебры существует другое, двойственное ему, 
получающееся из исходного путем механической замены в нем 
операций AND на OR, OR на AND, а также констант Т на F 
и наоборот. Приведенные ниже основные свойства булевой алгебры 
сгруппированы согласно этому принципу: 


Свойство коммутативности 


Свойство ассоциативности 


Свойство дистрибутивности 


Свойства операций AND и OR 
стантами 

Свойства операции отрицания 


Р AND Q = Q AND Р, Р OR Q = 

= Q OR Р 

Перестановка высказываний, входя¬ 
щих в операции AND и OR, не влияет 
на результат 

Р AND (Q AND R) = (Р AND Q) 
AND R 

P OR (Q OR R) = (P OR Q) OR R 
Последовательность выполнения не¬ 
скольких операций AND или несколь¬ 
ких OR на результат не влияет 
Р AND (Q OR R) = (Р AND Q) 
OR (P AND R) 

P OR (Q AND R) = (P OR Q) AND 
(P OR R) 

Операция AND дистрибутивна отно¬ 
сительно операции OR и наоборот 
кон- Р AND Т = Р, Р AND F = F Р 
OR Т = Т, Р OR F = Р 
Р AND NOT Р = F, Р OR NOT Р = Т 
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4.3. ЛОГИЧЕСКОЕ СЛЕДОВАНИЕ (ИМПЛИКАЦИЯ) 


Рассмотрим высказывания типа «Если Р, то Q». Частным слу¬ 
чаем высказывания данного типа служит, например, следующее: 
«Если дождь идет, то трава растет». В приведенном примере 
Р — «идет дождь», а Q — «трава растет». Следует отметить, что 
таблица истинности для этого высказывания должна включать 
в себя его значения для всех комбинаций значений составляющих. 
Т. е. истинность высказывания типа «Если Р, то Q» зависит от 
того, как интерпретируются значения Р и Q. Например, можно 
обнаружить, что значение всего высказывания — ложь, когда 
значение Р равно истине, а Q — лжи, что для приведенного выше 
примера соответствует тому факту, что при дожде трава не растет. 

Итак, мы имеем три логические величины: само высказывание 
и две его составляющие. Каждая из этих величин может произ¬ 
вольно принимать значение истина или ложь. Дождь может идти 
и не идти, трава может расти и не расти и, наконец, истина или 
ложь может заключаться в суждении, что если идет дождь, то 
непременно растет трава. В логике нет ничего, что могло бы нас 
убедить в истинности высказываний типа «Если Р, то Q». Про¬ 
верить его истинность можно только на практике, исходя из све¬ 
дений о реальном мире. Мы можем, например, обнаружить, что 
данное высказывание принимает значение ложь при условии, что Р 
истинно, а Q ложно. Для приведенного примера это соответствует 
ложности суждения, что когда идет дождь, трава не вырастет. 
Можно убедиться, что для всех других комбинаций значений Р 
и Q приведенное высказывание имеет значение истина. 

Для начинающих изучение логики очень важно понять, что 
ее цель не столько проверка правильности произвольных суж¬ 
дений о реальном мире, сколько дедуктивный вывод значения 
одних высказываний из других. По высказыванию «Если Р, 
то Q» в случае, когда Р ложно, нельзя судить об истинности Q. 
В приведенном примере этот случай соответствует тому, что если 
дождь не идет, трава может расти и не расти — и то, и другое мо¬ 
жет быть истиной. Поэтому для рассмотренного случая, т. е. при 
условии, что Р принимает значение ложь и при любом значении Q, 


Таблица 4.4 

Истинность операций IMPLIES (импликации) и IFF (тождества) 



Q Р IFF Q 


Т 

F 

F 

Т 
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все высказывание остается истинным. Однако, если данное выска¬ 
зывание истинно, то из истинности Р необходимо следует истин¬ 
ность Q. 

Операция, соответствующая высказываниям типа «Если Р, 
то Q», называется логическим следованием, или импликацией, 
и обозначается Р IMPLIES Q. 

В логике есть другая операция, напоминающая импликацию 
и задаваемая высказываниями «Р тогда и только тогда, когда Q» 
или «Для Р необходимо и достаточно Q». Эта операция называется 
логическим тождеством и обозначается IFF. 

Таблицы истинности для обеих рассмотренных операций 
представлены в табл. 4.4. 

4.4. ЛОГИЧЕСКИЕ СИМВОЛЫ 


До настоящего времени мы, насколько возможно, старались 
избегать использования символов при записи высказываний. Од¬ 
нако в классической логике, как и в булевой алгебре, сущест¬ 
вуют соответствующие правила символьной записи высказыва¬ 
ний, позволяющие представлять логические высказывания в стан¬ 
дартной форме. В табл. 4.5 приведены наиболее часто исполь¬ 
зуемые в булевой алгебре и в логике символьные обозначения ло¬ 
гических операций. 

В булевой алгебре операция отрицания обозначается гори¬ 
зонтальной чертой над переменной или выражением. Например, А 


обозначает NOT А, а запись А В эквивалентна высказыванию 
NOT (A AND В). Последняя операция имеет самостоятельное 
название И-НЕ (или NAND). 46 


Аналогично, операция А + В, 
обозначающая высказывание 
НЕ (А ИЛИ В), обычно назы¬ 
вается ИЛИ -HE (NOR). Таб¬ 
лицы истинности операций 
NAND и NOR приводятся в 
табл. 4.6. 

Следует отметить, что табли¬ 
цы истинности для NAND и NOR 


Операции NAND и NOR 


А В A -В А + В 


Т Т F F 

TFT F 

F Т Т F 

F F Т Т 


Область 

AND 

OR 

NOT 

IMPLIES 

IFF 

Булевая алгебра 

Логика 

А 

+ 

V 

~ 

Символа 

нет 

Символа 
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Таблица 4.7 


Примеры записи высказываний в булевой алгебре и логике 


Функция 

Булева алгебра 

Логика 

A AND В 

А-В 

А А В 

A OR В 

А + В 

А V В 

NOT А 

А 

~А 

NOT (A OR В) 

Г+В 

~ (А V В) 

NOT A OR В 

А + В 

~ А V В 

NOT A AND В 

А-В 

— А Д В 

NOT (A AND В) 

П 

(А-А В) 

A IMPLIES В 


А -и. В 

A IFF В 


А -> В 


мвгут быть получены из таблиц истинности для операций AND 
и OR путем замены их значений в соответствующих строках на 
противоположные. В табл. 4.7 приведено несколько примеров 
записи логических операций. 


Б. ЛОГИЧЕСКИЕ ФУНКЦИИ ОТ ДВУХ ПЕРЕМЕННЫХ 

Элементарные логические высказывания, которые не зависят 
друг от друга и могут произвольно принимать значения истина 
или ложь, будем называть логическими переменными. Высказы¬ 
вания, составленные с помощью логических операций над логиче¬ 
скими переменными, будем называть логическими функциями. 

Для двух логических переменных возможны четыре различ¬ 
ные комбинации их значений: ТТ, TF, FT и FF. Множество ком¬ 
бинаций значений переменных какой-либо логической функции, 
при которых данная функция принимает значение истина, назы¬ 
вается множеством истинности этой функции. Например, множе¬ 
ство истинности для функции AND состоит из одного элемента 
(ТТ), тогда как для функции OR — из трех элементов (ТТ, TF, 


Упражнение 4.1 

Самостоятельно запишите множества истинности для следую¬ 
щих функций: a) NAND; б) NOR; в) XOR; г) А В; д) ~А и 
е) А -*■ В. 

Существует всего 16 различных способов заполнения таблиц 
истинности логических функций от двух переменных. В табл. 4.8 
представлены все функции указанного вида от переменных р 
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Таблица 4.8 

Функции от двух переменных 



и q. Следует отметить, что любая логическая функция от произ¬ 
вольного числа переменных может быть представлена в виде ком¬ 
бинации функций от двух переменных. 

Напомним, что запись р означает: «высказывание р — истинно», 
а ~р — «высказывание р — ложно». 

Покажем, как ищется символьная запись для функций, имею¬ 
щих множества истинности, содержащие по одному элементу. 
Рассмотрим функцию h из табл. 4.8. Высказывание, соответствую¬ 
щее данной функции, истинно только тогда, когда р и q одновре¬ 
менно равны Т, поэтому указанная функция может быть записана 
как h = р Д q или в булевой форме: h = p-q. Высказывание, 
соответствующее функции 0, истинно, когда р и q одновременно 
ложны. Поэтому о =~p/\~q или в булевой форме: о = p-q. 
Заметим, что высказывание о не совпадает с ~ (р Д q). 

В качестве упражнения попробуйте, не заглядывая в книгу, 
дальше найти в табл. 4.8 функцию ~ (р Д q). Попытайтесь 
также записать в символьном виде какие-либо из функций, пред¬ 
ставленных в табл. 4.8. 

Две оставшиеся нерассмотренными функции, имеющие по 
одному элементу в своих множествах истинности, обозначены 
в табл. 4.8 1 и п. Функция 1 равна Т только при одной комбина¬ 
ции значений входных переменных: TF. Это значит, что 1 истинна, 
когда р истинно, a q ложно, т. е. 1 = р Д ~q. Аналогично можно 
установить, что п =~р Д q. 

Теперь рассмотрим четыре функции от двух переменных, при¬ 
нимающих на одной комбинации значений р и q значение не Т 
как в рассмотренных выше случаях, a F. Эти функции обозна¬ 
чены в табл. 4.8 через Ь, с, е и і. В данном случае удобнее сна¬ 
чала искать выражение для соответствующих противоположных 
функций, равных Т при тех входных комбинациях, при которых 
исходные функции равны F, а затем с помощью отрицания этих 
функций получить искомую. Так, например, функция і равна F 
при р = q = Т. Тогда і = ~ (р Д q). 

Упражнение 4.2 

Самостоятельно найти функции Ь, с и е из табл. 4.8. Они пред¬ 
ставляют собой отрицания ранее рассмотренных функций. Ка¬ 
ких именно? 
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Из шестнадцати таблиц истинности логических функций от 
двух переменных восемь мы уже рассмотрели. Со следующими 
двумя, а и г, разобраться довольно просто. Функция а при всех 
значениях р и q истинна и представляет все тавтологии, напри¬ 
мер р V ~Р- Функция г всегда ложна и представляет все противо¬ 
речия, например р Д ~р. 

Функции бит также элементарны. Первая из них истинна, 
если истинно р, и ложна, если ложно р, т. е. d = р. Функция m 
наоборот: истинна, если ложно р, и ложна, если истинно р; следо¬ 
вательно, m = ~р. По аналогии с функциями бит легко за¬ 
метить, что f = q, a k = ~q. 

Итак, в табл. 4.8 остались не рассмотренными две функции g 
и ]'. Множество истинности для j состоит из двух элементов — 
TF и FT. Данная функция может быть выражена в следующем сим¬ 
вольном виде: j = (р A ~q) V (~Р Л Ч)- Функция g может 
быть записана как отрицание функции j или иначе: (р Д q) V 
V (~Р Л ~Ч)- Отметим, что j представляет собой рассмотренную 
ранее операцию XOR, тогда как g — операцию IFF. 

Внимательно рассмотрев табл. 4.8, можно увидеть, что она 
обладает определенного рода симметрией относительно середины, 
т. е. линии, разделяющей столбцы h и і. Столбцы, находящиеся 
на одинаковом расстоянии от указанной линии (h и і, g и j и т. д.), 
получаются друг из друга с помощью операции отрицания. Поэ¬ 
тому для получения всех шестнадцати функций достаточно иметь 
выражения лишь для восьми левых (или правых) основных функ¬ 
ций. Остальные восемь могут быть получены с помощью отрица¬ 
ния основных. 

Упражнение 4.3 

Получите символьные выражения для восьми левых (или пра¬ 
вых) функций табл. 4.8, а затем, используя свойство симметрии, 
выразите оставшиеся функции. 

Упражнение 4.4 

Найдите в табл. 4.8 столбцы, соответствующие функциям 
P-q и p-q. 


4.6. ИСПОЛЬЗОВАНИЕ ПРОЛОГА ДЛЯ ДОКАЗАТЕЛЬСТВА 
ТЕОРЕМ 

Для получения программы 4.1 вам необходимо загрузить мо¬ 
дули Пролог-системы PROLOG, SIMPLE и TOLD. Функции 
AND, OR и NOT встроены в Пролог. С помощью этих функций 
и определяемых в программе отношений true, false и Т мы сможем 
определять истинность сложных высказываний, а также проверять 
на эквивалентность различные высказывания. 
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В программе 4.1 отношения b, g и h соответствуют одноимен¬ 
ным функциям, приведенным на табл. 4.8. Они могут быть пред¬ 
ставлены как b = р V q, g = (р Л q) V (~Р Л ~q) и h = 
= р Д q. Для того чтобы предоставить пользователю возможность 
вводить значение той или иной логической переменной, исполь¬ 
зуется отношение is-told. Запрос может иметь следующую форму 
«р истинно?» («р true?»,) и, если на него будет получен ответ «да» 
(yes), то значением р становится истина (true). В случае же, если 
вводится ответ «нет» (по), значением р считается ложь (false). 


Прогрвма 4.1 

X true if 

(X true) is-told 

[X истина если в ответ на вопрос системы (X истина?) пользо¬ 
ватель введет «да» («yes») ] 

X false if 

not X true 

[X ложь если HE X истина] 
b T if 

(either p true or q true) 

[b T, если ( p истина ИЛИ q истина) ] 
g T if 

(either p true and q true or p false and q false) 

[g T, если ( p истина И q истина ИЛИ p ложь И q ложь)] 
h Т if 

р true and 
q true 

[h T, если p истина И q истина] 


Отношение T, как уже было указано, используется для про¬ 
верки истинности сложных высказываний. С помощью данного 
отношения определяется истинность заданного сложного выска¬ 
зывания в зависимости от значений входящих в него переменных, 
которые в ответ на вопросы системы вводятся пользователем. 
Диалог между Пролог-системой и пользователем может иметь, 
например, следующий вид: 


is (h Т) 

[верно (h Т)? 1 
р true ? yes 
[р истинно? да) 

?true ? yes 
q истинно? да] 


; Запрос пользователя 

; Вопрос Пролог-системы и ответ поль- 
; зователя 

; Вопрос Пролог-системы и ответ поль- 
; зователя 

; Ответ Пролог-системы 


В рассмотренном примере диалога проверяется высказывание, 
составленное с помощью операции AND. Аналогичная проверка 



глядеть следующим 


для других значений переменных будет выі 
образом: 


is (h Т) 

[верно (h Т) ? ] 
р true ? yes 
[р истинно ? да] 
q true ? no 
[q истинно ? нет] 
NO 

[НЕТ] 

&. 


is (h T) 

[верно (h Т) ? ] 

р true ? по 

[р истинно ? нет] 

N0 

[НЕТ] 

&. 


Обратите внимание на то, что, обработав третий ответ пользо¬ 
вателя, Пролог-система ответила сразу же после получения зна¬ 
чения р, не производя в данном случае ненужной проверки зна¬ 
чения q. Приведем теперь пример определения истинности вы¬ 
сказывания Ь: 


is (b Т) 

[верно (b Т) ?] 
р true ? yes 
[р истинно ? да] 
YES 
[ДА] 

& is (b Т) 

[верно (Ь Т) ? ] 

р true ? по 

[р истинно ? нет] 

q true ? yes 

[q истинно ? да] 

YES 

[ДА] 

& is (b T) 

[верно (b Т) ? ] 
р true ? по 
[р истинно ? нет] 
q true ? по 
[q истинно ? нет] 
N0 

[НЕТ 1 

Л. 
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Функция OR принимает значение истина, когда это же зна¬ 
чение имеет хотя бы одна из двух ее переменных. Поэтому Про- 
лог-система, обнаружив, что значением первой переменной яв¬ 
ляется истина, прекращает проверку. Ниже приведены примеры 
диалога при проверке высказывания g = ((р Д q) V (~Р Л ~q)). 

Случай 1 

is (g Т) 

[верно (g Т) ?! 
р true ? yes 
[р истинно ? да! 
q true ? yes 
[q истинно ? да ] 

YES 

[ДА] 

Случай 2 
& is (g T) 

[верно (g Т) ? ] 
р true ? yes 
[р истинно ? даі 
q true ? no 
. [q истинно ? нет! 

?true ? yes 
p истинно ? да] 

NO 

[НЕТ] 

Случай 3 
& is (g T) 

[верно (g T) ? ] 

ftrue ? no 
p истинно ? нет] 
p true ? no 
[p истинно ? нет] 
q true ? yes 
[q истинно ? да] 

NO 

[НЕТ] 

Случай 4 
& is (g T) 

[верно (g T) ? ] 
p true ? no 
[p истинно ? нет] 
p true ? no 
[p истинно ? нет] 
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q true ? no 
[q истинно ? нет! 

YES 

[ДА] 

&. 

В рассмотренном примере представлены варианты получения 
ответа для всех четырех позиций таблицы истинности данной 
функции. В первом варианте р и q истинны, поэтому второй терм 
анализируемой функции на проверяется, так как функция OR, 
связывающая оба терма, в случае истинности первого терма также 
принимает значение истина. 

Значением первого терма во втором варианте является ложь, 
поэтому Пролог-система переходит к проверке истинности вто¬ 
рого терма. Поскольку мы не обеспечили запоминание ответа 
на первый вопрос об истинности р (р true ?), он повторяется 
еще раз, и мы должны еще раз утвердительно на него ответить. 
Сразу после этого Пролог-сист'ема устанавливает, что значением g 
является ложь, так как независимо от значения q значение вто¬ 
рого терма — ложь. 

В третьем и четвертом вариантах, так же как и во втором, 
Пролог-система повторяет вопрос «р true ?», чтобы определить 
значение второго терма функции g. Как будет показано в даль¬ 
нейшем, можно избежать повторений вопросов, но сейчас мы не 
будем останавливаться на этом. 

С помощью только что разобранного примера было показано, 
как можно использовать Пролог для проверки правильности 
логических уравнений, описывающих логические функции Ь, 
g и h. 

Можно воспользоваться средствами Пролога для проверки 
правильности альтернативных выражений для этих же функций. 
Для этого воспользуемся правилом алгебры логики, позволяю¬ 
щим манипулировать знаком отрицания: двойное отрицание пере¬ 
менной равно самой переменной: ~ (~А) = А. Пусть ~А = В, 
тогда, взяв отрицание от обеих частей этого равенства и приме¬ 
нив к левой части правило двойного отрицания, получим А = ~В. 
Рассмотрим логическую функцию b = р V Ч- Согласно правилам 
алгебры логики, выражение для этой функции может быть преобра¬ 
зовано к следующему виду: ~b = ~ (р V q). Ранее уже было 
указано, что символьное выражение для функций можно искать 
с помощью отрицания функции, являющейся по отношению к ис¬ 
ходной альтернативной, т. е. принимающей значение истина 
при тех значениях переменных, где исходная функция ложна, 
и наоборот. Функция OR принимает значение ложь только в том 
случае, когда р и q ложны одновременно, поэтому справедливо 
следующее равенство ~Ь = ~р Д ~q. С помощью программы 
4.1 проверим справедливость последнего равенства, а также срав¬ 
ним его с ~b = ~ (р V Ч)- Если они окажутся идентичными. 



это будет доказательством того, что ~р Д ~q тождественно 
равно ~ (р V Ч)- 

Добавим к программе 4.1 следующий фрагмент: 
b F if 

р false and 
q false 

lb F, если p ложь И q ложьі 

Поскольку справедливо «X ложь, если НЕ X истина» (X false 
if not X true), приведенный выше фрагмент эквивалентен следую¬ 
щему: 
b F if 

not р true and 
not q true 

[b F, если HE p истина И HE q истина 1, 

что в символьной записи соответствует b = ~р Д ~q. Проверим 
это равенство с помощью следующих вопросов: 
is (b F) 

[верно (b F) ? ] 
р true ? yes 
[р истинно ? да] 

N0 

[НЕТ] 

& is (b F) 

[верно (b F) ? 1 
р true ? по 
[р истинно ? неті 
q true ? yes 
[q истинно ? да] 

NO 

[НЕТ] 

& is (b F) 

[верно (b F) ? ] 
p true ? no 
[p истинно ? нет] 
q true ? no 
[q истинно ? нет] 

YES 

[ДА] 

& . 

Теперь удалим из программы отношение F с помощью 
команды kill F и введем другое его определение: 

b F if 

not (either р true or q true) 

[b F, если HE (p истина ИЛИ q истина)] 
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Ниже приведен диалог, служащий для проверки введенного 
отношения: 
is (b F) 

[верно (Ь F) ? ] 

? true ? yes 
р истинно ? даі 
NO 

[НЕТ] 

& is (b F) 

[верно (b F) ? ] 
p true ? no 
[p истинно ? нет] 
q true ? yes 
[q истинно ? да] 

' NO 
[НЕТ] 
is (b F) 

[верно (b F) ? ] 
p true ? no 
[p истинно ? нет] 
q true ? no 
lq истинно ? нет] 

YES 

[ДА1 

&. 

О том, что данное отношение эквивалентно удаленному, сви¬ 
детельствует совпадение последних двух диалогов. 

4.7. ПОЛУЧЕНИЕ ТАБЛИЦ ИСТИННОСТИ 

с помощью прЪлога 

Более мощными возможностями обладает приведенная ниже 
программа 4.2, позволяющая генерировать таблицы истинности 
для функций от двух переменных. Эта программа может быть, 
например, использована для проверки тождественности двух 
альтернативных форм представления какой-либо функции. В про¬ 
грамме используется бинарное отношение X true (YZ) [X истина 
(YZ) ] для проверки истинности функций. 

Для демонстрации предлагаемого способа выбраны следую¬ 
щие функции: А = X -Y, В = X + YhC=X + Y (для обозна¬ 
чения функций используются большие буквы, что позволяет 
отличать их от обозначений из табл. 4.8). 

Программа 4.2 

Т true j Т истина 

A true if ; А истина если 

X true and X истина И 
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Y true j У истина 

8 true if } В истина если 

(either X true or Y true); (X истина ИЛИ Y истина) 
C true if ; G истина если 

(either X true or Y false ■ (X истина ИЛИ Y ложь) 

F false ; F ложь 

Ниже приведен пример использования данной программы: 

& all (х у : A true (х у)) 

[Определить все (х у : А истина (х у)) 1 
Т Т 

No (more) answers 
[Ответов (больше) нет ] 

& all (х у : В true (х у)) 

[Определить все (х у : В истина (х у))] 

Т X 
XT 

No (more) answers 
[Ответов (больше) нет ] 

& all (х у : С true (х у)) 

[Определить все (х у : С истина (х у)) [ 

Т X 
X F 

No (more) answers 
[Ответов (больше) нет 1 


Пролог-система выдает значения х и у, соответствующие 
только истинным значениям каждой заданной функции. Все осталь¬ 
ные значения не рассматриваются. Для функций В и С получены 
ответы (ТХ, XT) и (ТХ, XF) соответственно. Символ X в ответе 
означает, что на его месте может находиться как F, так и Т. 
Таким образом, указанные две последовательности ответов озна¬ 
чают, что функции В и С принимают значение истина на мно¬ 
жествах значений аргументов (ТТ, TF, FT) и (ТТ, TF, FF) 
соответственно. 

С помощью следующих дополнений в программу 4.2 можно 
получить множества значений аргументов, для которых функции А, 
В и С принимают значение ложь. 


false (Y Z) if 
Y val and 
Z val and 
nor (X true (Y Z) 
val if 

(either X true or X 
false); 


X ложь (Y Z) если 
Y значимо И 
Z значимо И 
HE (X истина (Y Z)) 

X значимо, если 
(X истина ИЛИ X ложь) 


Макаллистер Дж. 
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На следующие три вопроса: 

1) all (х у : A false (х у) 

[Определить все (х у : А ложь (х у)) ] 

2) all (х у : В false (х у)) 

[Определить все (х у : в ложь (х у)) ] 

3) all (х у : С false (х у)) 

[Определить все (х у : С ложь (х у)) ] 


будут получены такие ответы: 

1) Т F 2) F F • 3) F Т 

F Т 
FF 

Заметим, что отношение ѵаі (значимо) служит для генерации 
всех возможных комбинаций значений входных переменных для 
последующей их проверки с помощью отношения false. Без этого 
отношения Пролог-система не смогла бы выдать ни одного ответа 
в тех случаях, когда значением заданных функций является ложь, 
и отвечала бы пользователю «No more answers [«Ответов больше 
нет»]. Читатель может убедиться в этом сам, удалив отношения 
ѵаі из программы и повторив запросы. 

Можно получить таблицу истинности, содержащую не только 
значения двух переменных, но и соответствующие им значения 
функций. Определим новое отношение tab (таблица), построенное 
с помощью отношений true и false. Для этого расширим предыду¬ 
щую программу и в результате получим программу 4.3: 


Программа 4.3 


Т true 

A true (X Y) fi 
X true and 
Y true 

В true (X Y) If 

(either X true or Y 
true) 

C true (X Y) if 

X true (Y Z x) if 
X true (Y Z) and 
x true 

X val if 

(either X true or X 
false) 

X tab (Y Z x) if 


; T истина 

; А истина (X Y), если 
; X истина И 
; Y истина 

; В истина (X Y), если 
; (X истина ИЛИ Y ложь) 

; С истина (X Y), если 
; X истина (Y Z х), если 
; X истина (Y Z) И 
; х истина 
; X значимо, если 
; (X истина ИЛИ X ложь) 

; X таблица (Y Z х), если 
X false (Y Z х)) 


(either X true (Y Z x) or 
; (X истина (Y Z x) ИЛИ X ложь (Y Z x)) 


F false 
X false (Y Z) if 
Y val and 
Z val and 


F ложь 
X ложь (Y Z), если 
Y значимо И 
Z значимо И 
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not (X true (Y Z)) ; HE (X (Y Z) 

X false (Y Z x) if ; X ложь (Y Z x), если 

X false (Y Z) and ; X ложь (Y Z) И 

x false ; x ложь 

Ниже приведены ответы Пролог-сиетемы на запросы, позволя¬ 
ющие получить таблицы истинности для функций А, В и С, 
включающие в себя третий столбец из значений функций: 

1) all (х у z : A tab (х у z)) 

[Определить все (х у z : А таблица (х у z)) ] 

2) all (х у z) : В tab (х у z)) 

[Определить все (х у z : В таблица (х у z)) ] 

3) all (х у z) : С tab (х у z)) 

[Определить все (х у z : С таблица (х у z)) 1 

1)ТТТ 2) TXT 3) TXT 

TFT XTT XFT 

FTF FFF FTF 

FFF 

Можно убедиться, что полученные таблицы соответствуют 
функциям А, В и С. Символ X в ответах заменяет одновременно Т 
и F. Таким образом, строка с одним таким символом соответствует 
двум обычным строкам. Первые два столбца содержат значения 
переменных, а последний — значения функций. 

Выше было показано, как можно с помощью Пролога исследо¬ 
вать некоторые не всегда очевидные свойства логических функ¬ 
ций. В табл. 4.9 приведены уже рассмотренные выше правила 
алгебры логики. 


Таблица 4.9 


Коммутативность 

p.q= q.p 

Р + q = Ч + Р 

Ассоциативность 

(p-q)-r = p-(q-r) 

(р + q) + Г = р + (q + г) 

Дистр ибутивность 

p-(q+r)= p-q + p-r 
.Р + (q -г) = (p+ q)-(p+ r) 

Двойное отрицание 

p = p 

Идемпотентность 

p.p = p 

P+ P = Р 

Поглощение 

p-(p + q)= p 

Несколько дополнительных ак- 

p -т = Р 


p-F= F 


P+T= T 
p + F= p 


p.p = F 


P+P = T 
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Упражнение 4.5 

Запишите правила логики из табл. 4.9 с помощью операций 
AND, OR и NOT. 

Напомним, что в процессе выполнения логических операций 
необходимо учитывать их приоритеты. В первую очередь выпол¬ 
няются операции в скобках, затем, в порядке убывания приори¬ 
тетов, следуют NOT, AND, OR и (в логике) IMPLIES на одном 
уровне с IFF. С помощью скобок можно изменять порядок вы¬ 
числения логических выражений. Поэтому, например, выражение 
р + q r не равно (р -f q)r. 


4.8. ПРАВИЛА ДЕ МОРГАНА 

В задачах, решаемых с помощью алгебры логики, часто ис¬ 
пользуются два правила, известных под названием правил де Мор¬ 
гана. Приведем формулировку этих правил: 

P^R ... = Р + Q + R + ... 

Р + Q + R + ... = P-Q-R ... 

Многоточия, использованные в приведенных формулах, озна¬ 
чают, что в выражении может содержаться произвольное число 
переменных. Вот несколько примеров использования данных 
правил: 

1. А + В = FB 

2. А + В С = A-FC - А (В + С) 

3. A-fC-fD = A + 61S = ACD 

Первый пример достаточно прост. Во втором примере снача£а 
выражение A -f X, где X = В С, преобразуется к виду А Х, 
а затем X = В -С приводится к виду В + С. В треть ем примере 
с помощью первого правила из С + D получаем С -D, а затем вы¬ 
водим окончательный ответ. 

Применение правил де Моргана обычно сводится к последова¬ 
тельному выполнению следующих трех шагов: 

а) отрицание всех отдельных термов выражения; 

б) замена операций AND на OR и наоборот; 

в) отрицание всего выражения. 

На практике правила де Моргана используются для пред¬ 
ставления произвольных логических функций в виде, удобном 
для реализации их с помощью электронных логических элементов 
одного типа. 

В частности, все функции из табл. 4.8 можно представить 
с помощью суперпозиции функций И-НЕ (NAND) или ИЛИ-НЕ 
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(NOR). Например, функция h => p-q (AND) может бьіть выра¬ 
жена с помощью NAND в виде h = p q или с помощью NOR 
в виде h = р + q. Функция отрицания реализуется в данном 
случае с пом ощью свойства поглощения, например, следующим 
образом: р = р + р. Эти преобразования применяются на прак¬ 
тике при проектировании аппаратуры вычислительных устройств, 
что позволяет рационально использовать элементную базу. В за¬ 
ключение добавим, что любые логические функции могут быть 
представлены также с помощью функций IMPLIES и NOT. 

Упражнение 4.6 

Запишите следующие выражения в двух вариантах с помощью 
NAND (а) и NOR (б): 

1) АВ, _2)А + В, 3) А (В +_С), 

4) А + В С, 5) А В + С, 6) А + В. 

4.9. ИСПОЛЬЗОВАНИЕ ПРОЛОГА ДЛЯ РЕАЛИЗАЦИИ 
ПРАВИЛ ДЕ МОРГАНА 

В программе 4.4 функции а, Ь, с, d, q и h представлены в трех 
различных вариантах, иллюстрирующих применение правил де 
Моргана. Различным вариантам соответствуют отношения, обо¬ 
значенные разным числом букв. Например, отношение а — пер¬ 
вый вариант функции а из табл. 4.8, да — второй вариант той же 
функции и ааа — третий. Теперь, если три варианта представ¬ 
ляют одну и ту же функцию, реакция Пролог-системы в случае 
одних и тех же переменных будет одинаковой. 

Про греми в 4.4 

а Т if 

(either р true or р false) 
аа Т if 

not (р true and p false) 
ааа T if 

not not (either p true or p false) 
b T if 

(either p true or q true) 
bb T if 

not (p false and q false) 
bbb T if 

not not (either p true or q true) 
с T if 

(either p true or q false) 
cc T if 

not (p false and q true) 
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ccc T if 

not not (either p true or q false) 
d T if 
p true 
dd T if 

not (p false and p false) 
ddd T if 

not not (either p true or p true) 

g T И 

(either p true or q true or p false and q false)) 
gg T if 

not not (p true or q true) and not (p false and q false) 
ggg T if 

not not (either not (either p false or q false) or not (either 
p true or q true)) 
h T if 

p true and 
q true 
hh T if 

not not (p true and q true) 
hhh T if 

not (either p false or q false) 

X true if 

(X true) is-told 
X false if 

not X true 
X F if 

not X T 

В данной программе снова используется модуль TOLD, поз¬ 
воляющий организовать диалог пользоваться с Пролог-системой. 
Ниже приводится пример такого диалога: 
is (h Т) 

[верно (h Т)1 
р true ? yes 
[р истинно? да] 
a true ? yes 
[q истинно? да] 

YES 

[ДА] 

& is (hh Т) 

[верно (hh T)J 
р true ? yes 
[p истинно? да ] 

7 true ? yes 
q истинно? да] 

YES 

[ДА] 
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& is (hhh T) 

[верно (hhh T)] 
о true ? yes 
[p истинно? да] 
q true ? yes 
[q истинно? да] 

YES 

[ДА] 

Указанный диалог показывает, что первая строка таблицы 
истинности для высказываний h, hh и hhh одна и та же. Анало¬ 
гичным образом могут быть проверены и остальные строки и 
таблицы. 

Ниже приводится программа 4.5, полученная в результате 
модификации программы 4.3. Эта программа позволяет прове¬ 
рять таблицы истинности для различных вариантов представления 
функций алгебры логики. 

Программа 4.5 

Т true 

X true (Y Z x) if 
X true (Y Z) and 
x true 

b true (X Y) if 

(either X true or Y true) 
bb true (X Y) if 
X val and 

Y val and 

not (X false and Y false) 
bbb true (X Y) if 
X val and 

Y val and 

not not (either X true or Y true) 
c true (X Y) if 

(either X true or Y false) 
cc true (X Y) if 
X val and 

Y val and 

not (X false and Y true) 
ccc true (X, Y) if 
X val and 

Y val and 

not not (either X true or Y false) 
h true (X Y) if 
X true and 

Y true 

hh true (X Y) if 
X val and 
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Y val and 

not not (X true and Y true) 
hhh true (X Y) if 
X val and 

Y val and 

not (either X false or Y false) 

X val if 

(either X true or X false) 

X tab (Y Z x) if 

(either X true (Y Z x) or X false (Y Z x)) 

F false 

X false (Y Z) if 

Y val and 
Z val and 

not (X true (Y Z)) 

X false (Y Z x) if 
X false (Y Z) and 
x false 

Для получения с помощью программы 4.5 таблицы истинности 
для функции b необходимо ввести запрос типа all (xyz : b tab 
(xyz)). Затем после ввода аналогичных запросов для функций bb 
и bbb получаем соответствующие им таблицы. 

Ниже приводится диалог, возникающий после ввода трех 
указанных запросов. 

& all (х у z : b tab (xyz)) 

TXT 

ХТТ 

FFF 

& all (х у z : bb tab (x у z)) 

TTT 

TFT 

FTT 

FFF 

& all (x у z : bbb tab (x у z)) 

TTT 

TFT 

FTT 

FFF 

No (more) answers 

По полученным таблицам можно убедиться в идентичности 
функций b, bb и bbb. 

4.10. ЛОГИЧЕСКОЕ СЛЕДОВАНИЕ В ПРОЛОГЕ 

Истинность логического высказывания может быть определена 
после того, как на основании каких-либо общеизвестных фактов 
установлена истинность аргументов, входящих в данное выска- 
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зывание. Например,' известно, что солнце всходит на востоке. 
Из этого можно вывести, что если одна из двух точек земной 
поверхности находится восточнее другой, то из нее восход солнца 
можно наблюдать раньше. Однако логически строгого доказа¬ 
тельства того, что солнце всходит на востоке, может не быть. 

Применение методов логического вывода позволяет получать 
новые результаты на основе уже известных фактов и теорий. 
Приведем несколько простых примеров. 

1. Джим человек. Все люди имеют мозг. Следовательно, Джим имеет мозг. 

2. Джим человек. Все люди имеют по 5 ног. Следовательно, у Джима 5 ног. 

3. Джим человек. У Джима есть мозг. Следовательно, все люди имеют мозг. 

4. Все люди смертны. Джим человек. Следовательно, Джим смертен. 

5. Все люди смертны. Джим смертен. Следовательно, Джим человек. 

Первая и вторая цепочки умозаключений являются коррект¬ 
ными, хотя во второй из-за того, что одно из исходных утвержде¬ 
ний ошибочно, в результате получилось абсурдное утверждение. 
Исходные утверждения третьей цепочки правильны, корректным 
получился и результат, но законы логики были нарушены: нельзя 
строить дедуктивный вывод от частного к общему. Четвертая 
цепочка представляет собой классический образец корректного 
логического вывода, а в пятой содержится ошибка: из того, что 
Джим смертен, не следует, что Джим человек. 

Приведем еще два правила, которые помогут избежать рас¬ 
смотренных ошибок. 

1. Правило modus potiens ». Согласно этому правилу из истин¬ 
ности высказывания «из Р следует Q» (Р IMPLIES Q) и из истин¬ 
ности Р выводится истинность Q. 

Первый, второй и четвертый из приведенных примеров иллю¬ 
стрирует применение этого правила. Данное правило более на¬ 
глядно можно представить так: 

Р 

из Р следует Q 
следовательно, Q 

2. Правило цепочки. Если истинны «из Р следует Q» и «из Q 
следует R», то можно заключить, что «из Р следует R». 

Например, из высказываний «все собаки — животные» и «жи¬ 
вотные не умеют думать» следует «собаки не умеют думать». За¬ 
пишем это правило в следующем виде: 

из Р следует Q 
из Q следует R 

следовательно, 

из Р следует R 

Программа 4.6 иллюстрирует применение только что описан¬ 
ных правил: 
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Программа 4.6 

Alan man [Алан мужчина] 

Anna woman [Анна женщина] 

х human if [x человек, если] 

(either x man or x woman) 

[x мужчина или x женщина] 
x mortal if [x смертен, если] 

x human [x человек] 

В ответ на вопрос 
is (Alan human) 

[верно (Алан человек)] 

Пролог-система ответит утвердительно, а на запрос 
all (х : х human) 

[определить все (х : х человек)] 

будут получены ответы «Аіап» и «Апп». Если ввести запрос 
all (х : х mortal) 

[определить все (х : х смертны)] 

Пролог-система также выдаст ответы «Аіап» и «Апп», полученные 
с помощью правила цепочки и «modus ponens». 

Работа программы 4.6 иллюстрирует возможности Пролога 
делать «самостоятельные» логические выводы из заданных выска¬ 
зываний. Причем следует отметить, что точный алгоритм вывода 
не задается. В программе 4.7, построенной с помощью только двух 
отношений — true и implies, — правило modus ponens задается 
в явном виде, а применение правила цепочки реализуется встроен¬ 
ными средствами Пролога. Отметим, что правило цепочки можно 
расширить, например, следующим образом: если из Р следует Q, 
из Q следует R, из R следует S, а из S следует Т, то из любого 
из высказываний Р, Q, R и S следует Т. 

Программа 4.7 

(Alan is a man) true [(Алан—мужчина) истина] 

(Ann is a woman) true [(Анна — женщина) истина ] 

X true if [х истина, если] 

Y implies X and [из Y еледует X и ] 

Y true [Y истина] 

(X is a man) implies (X is human) 

[из (X — мужчина) следует (X — человек) I 
(X is a woman) implies (X is human) 

[из (X — женщина) следует (X — человек)! 

(X is human) implies (X thinks) 

[из (X — человек) следует (X — мыслит)! 

(X thinks) implies (X is intelligent) 

[из (X — мыслит) следует (X — разумен) 1 
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(X is intelligent) implies (X can learn) 

[из (X — разумен) следует (X может обучаться) ] 

(X is intelligent) implies (X can reason) 

[из (X — разумен) следует (X может рассуждать)] 

В ответ на запрос 
all (х : х true) 

[определить все (х : х истинно)] 

программа 4.7 выведет из высказываний «Alan is a man» и «Ann 
is a woman», что Алан и Анна — люди. Отметим, что программи¬ 
рование правила modus ponens в другом виде: 

X true ii Y true and Y implies X 

[X истинно, если Y истинно и из Y следует X ] 

приведет к бесконечным возвратам при попытках вывести новые 
факты из уже выведенных и через некоторое время система сооб¬ 
щит о нехватке места в памяти. Читатель может в качестве упраж¬ 
нения проверить на практике, что получится при внесении ука¬ 
занных изменений в программу 4.7. Попробуйте также при вне¬ 
сении изменений в данное правило программы 4.7, кроме того, 
удалить из него условие Y true. Введите после этого запрос 
all (х : х true). Тогда кроме двух запрограммированных в явном 
виде фактов (первые две строки программы) будут выданы ответы 
типа: 

X is human 
X thinks 

и т. д. На запрос «is (David is human) true» будет получен утверди¬ 
тельный ответ. Другими словами, если логический вывод строится 
на основе аргументов, значения которых не определены, то в этом 
случае могут быть получены как истинные, так и ложные резуль¬ 
таты, и логическая система становится бесполезной. 

Программы 4.6 и 4.7 позволяют на достаточно простом уровне 
продемонстрировать некоторые свойства реляционных баз дан¬ 
ных, которые более подробно будут рассматриваться позднее. 
В данной же главе мы обращаем внимание лишь на логические 
механизмы, заложенные в Пролог. 

Говоря о программах 4.6 и 4.7, следует обратить внимание 
на следующие четыре момента. 

1. Для достаточно большого числа отношений программа 4.6 
может оказаться слишком длинной и не уместиться в памяти ЭВМ. 

2. В программе 4.7 использовать отношение implies на самом 
деле не обязательно. Данное отношение применяется лишь для 
демонстрации правила цепочки и можно его заменить на условное 
предложение Пролога if. Однако в ряде случаев следует при¬ 
менять implies вместо if. 

3. Всегда следует стремиться к общности для того, чтобы 
создавать более компактные и более эффективные программы. 
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Например, одно условие «if х is а у» может заменить несколько 
таких условий, как «if х is a man» и «if х is a women» и т. д. 

4. Списковые конструкции позволяют в компактной форме 
представлять сложные отношения. 

При написании программы 4.8 были использованы более 
эффективные средства программирования, чем в рассмотренных 
выше двух программах. Заметим, что программа 4.8 строится 
с помощью отношения true и списковых структур. 

Программа 4.8 

(X is a man) true if [(X мужчина) истина, если ] 

X ON (Alf Bert Colin) [X из-списка (Альфред Берт 
Колин) ] 

(X is a woman) true if [(X женщина) истина, если] 

X ON (Anne Betty Clare) 

[X из-списка (Анна Бетти Клер)] 

(X is a child) true if [(ребенок) истина, если] 

X ON (David Helen Jim) 

[X из-списка (Дэвид Элен Джим)] 

(X is human) true if [(X человек) истина, если ] 

Y ON (man woman child) and 

[Y из-списка (мужчина женщина ребенок) и] 

(X is a Y) true [(X являются Y) истина] 

(X is a dog) true if [(X собака) истина, если] 

X ON (Fido Rover Spot) [X из-списка (Фидо Ровер 
Спот) ] 

(X thinks) true if [(X мыслит) истина, если] 

(X is human) true [(X человек) истина] 

(X can reason) true if [(X может рассуждать) истина, если 1 
(X thinks) true [(X мыслит) истина] 

(X can learn Y) true if [(X может научиться Y) истина, если ] 
(X can reason) true [(X может рассуждать) истина] 

(X can learn tricks) true if 

[(X может научиться проделкам) истина, если] 

(X is a dog) true [(X собака) истина] 

Данная программа может быть использована, например, для 
проверки какого-либо факта: 
is ((Alf is a man) true) 

[верно ((Альфред мужчина) истина)] 

YES 

[ДА] 

В другом случае ее можно применять для поиска нужного 
элементарного данного: 
one (х: (х is a child) true) 

[определить один (х: (х ребенок) истина)! 
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David 
[Дэвид ] 

Может быть введен запрос в более общей форме: 
is ((х is a man) true) 

[верно ((мужчина) истина)] 

YES 

[ДА] 

В последнем случае программа подтверждает, что существует х, 
удовлетворяющее отношению с(х is a man) true». В другом слу¬ 
чае на запрос 
is ((х is a cat) true) 

[верно ((х кошка) истина)] 

будет получен отрицательный ответ «N0», свидетельствующий 
о том, что программа не может найти х, удовлетворяющее данному 
запросу. 

На примере рассмотренной программы можно убедиться в спо¬ 
собности Пролога делцдъ логические выводы. Например: 
is ((Hellen can reason) true) 

[верно ((Элен может рассуждать) истина] 

YES 

[ДА] 

В данном случае Пролог-система «рассуждает» следующим 
образом: 

все дети — люди, 
все люди мыслят, 

из «х — мыслит» следует «х может рассуждать»; 

Элен — дитя, 

следовательно, Элен может рассуждать. 

Программа может также сделать следующий вывод: 
is ((АИ can learn programming) true 

[верно ((Альфред может обучиться программированию) истина] 

YES 

[ДА] 

С помощью правила 

(X can learn Y) true if (X can reason) true 

[(X может научиться Y) истина, если (X может рассуждать) 

истина] 

Пролог-система может сделать произвольное число логических 
выводов типа, рассмотренных выше. Вот еще несколько таких 
примеров: 

is ((Fido can learn programming) true) 

[верно ((Фидо может обучиться программированию) истина) ] 
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NO 

[НЕТ] 

all (X: (Fido can learn X) true 

[определить все (X : (Фидо может обучиться X) истина) ] 
tricks 

[проделки] 

all (х: (х can learn programming) true) 

[определить все (х: (х может обучиться программированию 
истина) 

АН 
Bert 
Colin 
и т. д. 

Данная программа с точки зрения практического ее примене¬ 
ния довольно далека от еовершенства, поскольку ее работа осно¬ 
вана на мнении, что человек может обучиться чему угодно. Более 
полезна будет программа, в которой более точно определена спо¬ 
собность к обучению в более сложной форме. Для этого в про¬ 
грамме 4.8 вместо восьмого предложения добавим следующий 
фрагмент: 

(X is 1) true if [(X 1) истина если] 

X ON (АН Anne David) 

[из-списка (Альфред Анна Дэвид)] 

(X is 2) true if [(X 2) истина, если ] 

X ON (Bert Betty Helen) 

[X из-списка (Берт Бетти Элен)] 

(X is 3) true if [(X 3) истина, если ] 

X ON (Colin Clare Jim) 

[X из-списка (Колин Клер Джим)] 

(X is 1 subject) true if 

X ON (walking talking digging) 

[(X из-группы 1) истина, если] 

[X из-списка (ходить говорить копать)] 

(X is 2 subject) true if 

X ON (reading writing arithmetic prolog) 

[(X из-группы 2) истина если] 

[X из-списка (читать писать арифметика пролог)] 

(X is 3 subject) true if 

X ON (physics algebra) 

[(X из-группы 3) истина, если] 

[X из-группы (физика алгебра)] 

(Einstein is a genius) true 
[(Эйнштейн гений) истина] 

(X can learn advanced Y) true if 
(X is a genius) true and 
(Z can learn Y) true 

[(X может научиться сложным Y) истина, если] 

([X гений) истина и (Z может научиться Y) истина] 
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(X can learn Y) true if 
(X is Z) true and 
(Y is Z subject) true 
[(X может научиться Y) истина, если] 

[(X Z) истина и (Y из-группы Z) истина] 

Теперь можно проверить работу данной программы с помощью 
следующего диалога: 

is ((Betty can learn Prolog) true) true) 

[верно ((Бетти может обучиться Прологу) истина)] 

YES 

[ДА] 

is ((Betty can learn algebra) true) 

[верно ((Бетти может обучиться алгебре) истина] 

N0 

[НЕТ] 

all (х: (Colin can learn х) true) 

[определить все (х: (Колин может обучиться х) истина)] 

walking 

[ходить] 

talking 

[говорить] 

и т. д. 

is (Einstein can learn advanced tricks) true 

[верно (Эйнштейн может обучиться сложным проделкам) 

истина] 

YES 

[ДА] 


Вообще изучать на практике логические механизмы Пролога 
очень полезно для начинающих. Это занятие довольно увлека¬ 
тельно и часто приводит к неожиданным результатам. Кроме того, 
такие упражнения способствуют лучшему пониманию логики 
языка. В качестве такого упражнения можно рекомендовать 
читателю проанализировать ответы на следующие вопросы: 

all (х: х true) 

[определить все (х: х истина)! 
all (х у: (х у) true) 

[определить все (х: (х у) истина)] 
all (х у г: (х у z) true) 

[определить все (х у г: (х у г) истина)] 

all (х у: (х сап у) true 

[определить все (х у: (х может у) истина] 

all (х у: (х сап у) true 

[определить все (х у: (х может | у) истина)] 
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4.11. пролог И ЦИФРОВЫЕ 
ЛОГИЧЕСКИЕ УСТРОЙСТВА 




Для того чтобы разобраться в опи¬ 
сываемом ниже применении Пролога 
для построения электронных схем, 
реализующих логические функции, 
не нужно быть специалистом в элек¬ 
тронике. Достаточно знать, что логи¬ 
ческие схемы представляют собой 
разновидность электронных схем, 
имеющих один или несколько вхо¬ 
дов и один выход. Сигналы на выходе схемы зависят от раз¬ 
личных комбинаций электрических потенциалов двух уровней, 
подаваемых на ее вход. Логические уровни, которые раньше за¬ 
давались с помощью значений истина и ложь, определяются 
в логических схемах как уровни электрических потенциалов на 
входах и выходах этих схем. 

Схемы, в которых более высокий уровень напряжения соот¬ 
ветствует логической единице (истине), а низкий — логическому 
нулю (лжи), называют положительными логическими схемами. 
На выходе элементарной логической схемы (вентиля) устанавли 
вается сигнал, соответствующий значению истина или ложь в за¬ 
висимости от комбинации логических сигналов на входе. Из 
элементарных схем строятся более сложные. Примеры таких 
элементарных схем, реализующих функции AND, OR, NOT, 
NAND и NOR, представлены на рис. 4.1. 

Все эти вентили, кроме одновходового инвертора (схема NOT), 
имеют по два входа. В программе 4.9 используется отношение fn, 
моделирующее работу схем NOT и AND. Преимущество пред¬ 
лагаемого метода заключается в простоте представления сложных 
схем. Чтобы обозначения вентилей отличались от имен встроен¬ 
ных отношений Пролога, в программе для отношений, модели¬ 
рующих элементы схем, используются имена, состоящие из первой 
большой буквы и остальных малых, например And, Not и т. д. 

Программа 4.0 

(Not 0) fn 1 
(Not 1) fn 0 
(And 0 I X) fn 0 
(And 1) fn 1 
(And 1 I X) fn Y if 
(And I X) fn Y 

Ниже приводится пример работы этой программы: 
all (xyz: (And ху) fn z) 

0X0 
1 0 0 


4>=I> 
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1 1 1 

No (more) answers 

Работа трехвходового элемента And моделируется с помощью 
запроса 

all (xyz X: (And xyz) fn X). 

Результат всегда помещается в последнем столбце. 

Упражнение 4.7 

Написать программу, моделирующую работу вентиля Or, 
а затем с помощью отношения Not, а также отношений And и Or 
определить отношения Nand и Nor. 

Приведенная ниже программа 4.10, построенная с помощью 
отношений tab и Ь, позволяет выводить на экран таблицы, описы¬ 
вающие зависимости выходных сигналов от входных для произ¬ 
вольных логических схем. Отношение tab выводит списки уровней 
входных и выходных сигналов, тогда как отношение b обеспечи¬ 
вает генерацию всех двоичных последовательностей, имеющих 
длину, соответствующую числу входных сигналов. 

Программа 4.10 

(X) Ь 1 if 

X ON (0 1) 

X Ь У if 

1 LESS Y and 
SUM (1Z У) and 
xb 1 and 
у b Z and 
APPEND (x у X) 
tab (X Y Z x) if 
Z b X and 
fn((Y|Z)x) 

В отношении tab переменная Y обозначает название схемы, 
X — число входов, Z — комбинацию нулей и единиц, обознача¬ 
ющих уровни входных сигналов, ах — уровень выходного сиг¬ 
нала. Например, для получения таблицы зависимости выходного 
сигнала от входов схемы Nand (с помощью отношения из ответа 
к упражнению 4.7) необходим следующий запрос: 
all (х у): tab (3 Nand х у) 

(0 0 0 ) 1 
(0 0 1 ) 1 
... и т. д. 

(1 1 1 ) 0 

Теперь определим отношение, позволяющее анализировать 
работу сложной логической схемы. На рис. 4.2 представлена 
довольно простая логическая схема, имеющая два уровня, на 
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Рис. 4.2. Двухуровневая логическая схема 

первом из которых расположены два вход¬ 
ных элемента: первый — And с двумя вхо¬ 
дами, другой — Or с тремя. На втором, вы¬ 
ходном уровне размещен один элемент 
Nand. Ниже приводится определение от- 
уровень 1 \ Уровень г ношения сот, позволяющего описывать 

работу таких схем: 

(X Y Z х у) сот г if 

tab (X Z XI Yl) and 
tab (Y x Z1 xl) and 
APPEND (xl zl yl) and 
(y Yl Xl) fn zl and 
APPEND (yl (zl) z) 

В приведенном выше фрагменте программы таблицы уровней 
входных и выходных сигналов получаются с помощью отношения 
tab. Затем совокупность сигналов первого уровня используется 
для моделирования работы второго уровня схемы с помощью 
отношения fn и списка значений входных сигналов г. Окончатель¬ 
ный ответ обеспечивается оператором Пролога APPEND. Так, 
для схемы, показанной на рис. 4.2, таблица может быть получена 
следующим образом: 

all (X: (2 3 And Or Nand) com x) 

(0 0 0 0 0 1 ) 

(0 0 0 0 1 1 ) 

... и T. д. 

(11110 0 ) 

( 111110 ) 

No (more) answers 

Отметим, что первые две переменные используются для обо¬ 
значения числа входов двух элементов первого уровня. Элемент 
второго уровня был уже описан ранее и имеет два входа. 


Упражнение 4.8 

Напишите запросы, позволяющие получать таблицы истин¬ 
ности логических схем, имеющих структуру: 

а) два двухвходовых элемента Nand, соединенные на вы¬ 
ходе с Nor; 

б) два двухвходовых элемента And, соединенные на выходе 
с таким же And; 

в) два инвертора (Not), соединенные с элементом Nand. 
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Упражнение 4.Ѳ 


а. Сравните результаты выполнения упражнений 4.8, а и б. 

б. С помощью отношения fn получите таблицу истинности 
для двухвходового элемента Ог и сравните результат с ответом 
в упражнении 4.8, в. 


4.12. ИСПОЛЬЗОВАНИЕ ЛОГИЧЕСКИХ ЭЛЕМЕНТОВ 
ДЛЯ ДОКАЗАТЕЛЬСТВА ТЕОРЕМ 

Упражнения 4.8 и 4.9 должны были подготовить читателя 
к изучению материала данного раздела. Отношения, описанные 
выше, могут быть использованы для доказательства теорем логики 
и булевой алгебры. Например, рассмотрим два частных случая 
применения одного из правил де Моргана: 

А-В = А + В; (теорема 1) 

А + В = А-В (теорема 2) 

Для проверки теоремы 1 воспользуемся следующими двумя 
запросами: 

all (х у : tab (2 Nand х у)) 
all (х: (1 1 Not Not Or) com x) 

Сравнив приведенные ниже ответы Пролог-системы, убедимся 
в том, что анализируемые функции из левой и правой частей 
формулировки теоремы I идентичны: 

(О 0) 1 (0 0 1) 

(0 1 ) 1 (0 1 1 ) 

(1 0 ) 1 (10 1 ) 

(1 1 ) 0 (11 0 ) 

Аналогичным способом можно доказать правильность тео¬ 
ремы 2. Рассмотренная программа может быть усовершенствована 
с помощью дополнительного отношения, которое позволяет про¬ 
верять эквивалентность двух логических выражений. Эго отно¬ 
шение называется equiv и имеет следующий вид: 

(X Y I Z) equiv (X Y | х) if 

(forall ((X Y I x) com у then (X У | Z) com y) 

Эта запись означает, что две логические схемы эквивалентны, 
если они формируют одинаковые выходные сигналы для каждой 
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Рис. 4.3. Иллюстрации к теоремам 1 и 2 





комбинации входных сигналов. В том 
случае, когда требуется проверить 
эквивалентность некоторой сложной 
схемы и элементарной, состоящей из 
одного элемента, удобно пользоваться 
фиктивным элементом — проводником 
Link, непосредственно соединяющим 
вход первого уровня со входом вто¬ 
рого. Для этого дополним отношение 
fn двумя следующими строками: 


(Link 0) fn 0 
(Link 1) fn 1 


Программа Link соответствует элементу, повторяющему на 
выходе свой же входной сигнал. Теперь можно воспользоваться 
отношением equiv, например, следующим образом: 


is ((1 1 Link Link Nand) equiv (1 1 Not Not Or) 

YES > 

&. 


Утвердительный ответ подтверждает правильность форму¬ 
лировки теоремы 1. Очевидно, что такой способ доказательства 
эквивалентности логических схем удобнее, чем рассмотренный 
раньше, при котором приходилось вручную сравнивать таблицы 
истинности. На рис. 4.3 показаны логические схемы, иллюстри¬ 
рующие теоремы 1 и 2. 

Упражнение 4.10 

а. Проверьте теорему 2 с помощью отношения equiv. 

б. С помощью отношения tab или сот получить таблицы 
истинности левой и правой частей теоремы 2 и убедиться, что они 
совпадают. 

Мы использовали программу 4.10 для того, чтобы подтвердить 
или отвергнуть какую-либо гипотезу о равенстве одних логи¬ 
ческих схем другим. Следующим шагом будет получение отноше¬ 
ния, которое способно генерировать новые логические схемы, 
эквивалентные исходным. Такое отношение (isequiv), представ¬ 
ленное в программе 4.11, включает в себя все отношения, исполь¬ 
зованные ранее при анализе логических схем. В рассматриваемой 
программе отношение igate предназначено для получения логи¬ 
ческих схем, построенных на элементах с инвертированным вы¬ 
ходом Nor, Nand и Not, которые были бы эквивалентны исходным 
схемам, содержащим только элементы без инвертирования Ог, 
And и Link. Если нужно получить все эквивалентные схемы, то 
отношение igate следует переписать, дополнив соответствующий 
список так, чтобы он содержал все элементы, включая Link. 
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Программа 4.11 


(Link 0) fn 0 
(Link 1) fn 1 
(Not 0) fn 1 
(Not 1) fn 0 
(And 0 X) fn 0 
(And 1 1) fn 1 
(And 1 X) fn Y if 
(And X)fnY 
(Or 0 0) fn 0 
(Or 0 X) fn Y if 
(Or X)fnY 
(Or 1 X)fnl 
(Nand X) fn Y if 

(And X) fn Z and 
(Not Z) fn Y 
(Nor X)fnYif 

(Or X)fnZand 
(Not Z) fn Y 
(X) b 1 if 

X ON (0 1) 

X b Y if 

1 LESS Y and 
SUM (1 Z Y) and 
xb 1 and 
ybZand 
APPEND (xyX) 
tab (X Y Z x) if 
Z b X and 
(YZ)fnx 
(X Y Z x y) com z if 

tab (X Z XI Yl) and 
tab (Y x Z1 xl) and 
APPEND (XI Z1 yl) and 
(y Yl xl) fn zl and 
APPEND (yl (zl) z) 

(X Y Z x y) isequiv (X Y z Xl Yl) if 
igate Z and 
igate x and 
igate у and 

(X Y Z x y) equiv (X Y z Xl Yl) 

(X Y Z) equiv (X Y j x) if 

(forall (X Y x) com у then (X Y! Z) com y) 
igate X if 

X ON (Not Nor Nand) 

Приведем пример иепользования программы 4.11: 

all (х : х isequiv (2 2 And And And) 

(2 2 Nand Nand Nor) 

No (more) answers 
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Результат, полученный Пролог-системой после анализа соот¬ 
ветствующих таблиц истинности, подтверждает истинность еле 
дующего равенства: 

A-B-C-D =Х~В + СТіГ 

Доказательство теорем, а также генерация формулировок 
новых теорем входят в ряд наиболее распространенных задач 
математической логики и искусственного интеллекта. Каждому 
изучающему программирование на Прологе будет полезно напи¬ 
сать программу, аналогичную рассмотренной в данном разделе, 
но для такой предметной области, которая больше соответствует 
его профессиональным интересам. Для читателей, специализиру¬ 
ющихся в области электроники, можно порекомендовать в каче¬ 
стве такого упражнения усовершенствовать программу 4.11, до¬ 
полнив ее отношениями, позволяющими описывать элементы 
последовательного действия, такие, как триггеры, счетчики и ре¬ 
гистры сдвига. Полученная в результате программа должна 
строить логическую схему по описанию ее работы, представлен¬ 
ному в виде спецификаций. 


Упражнение 4.11 

С помощью программы 4.11 проверить следующие равенства: 

a) А + В + С + D = А + В-С + D; 

б) А + В-С -D =Х1 ГСД); _ 

b) (А 4- В + C)-D = А + В + С + D. 

Ответы к упражнениям 


Упражнение 4.1 

a) (TF FT F F); б) (FF); в) (TF FT): г) (ТТ); д) (F); е) (ТТ F Т FF). 


Упражнение 4.2 


Ь = рѴч. 
с= РѴ~ 

е = ~pVq 


Ч. 


Упражнение 4.3 

а = TRUE (тавтология); 
b = р + q ; 
с = р+ q: 
d = р; 
е = р + q; 

f=q; 

g-= p-q+ p.q; 
h = p-q; 


инверсия от о; 
инверсия от п; 
инверсия от 1. 


г = FALSE; 
о = p-q; 
n = p_-q; 
ш = р; 



k = q;_ 

j - p-q + p-q; 
i -- p-q. 
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Упражнение 4.4 
Функции е и g. 

Упражнение 4.5 

р Л q = ч Л р; р V q = q V р; (р Л ч) Л г = р Л (ч Л г) и т. д. 

Упражнение 4.6 


1) А-В; 2) А-В; 3) А-В-С; 4) А-В-С; 5) А-В-С; 6) А-В. 

1) А + В ; 2)1+ В; 3) А + В"+"ё; 4) А + В + С 5) 1+1 +С; 

6 ) 1 + 1 . 

Упражнение 4.7 
См. программу 4.11. 

Упражнение 4.8 

a all (х: (2 2 Nand Nand Nor) com x) 

б) all (x: (2 2 And And And) com x) 

в) all (x: (1 1 Not Not Nor) com x) 

Упражнение 4.9 

а) таблицы истинности совпадают; 

б) all (х: (2 2 And And And) com x) результаты совпадают, за исключением 
того, что fn выводит на экран символ X, означающий «безразличное» состояние, 
отметим, что таблица для Ог может быть также получена с помощью следующего 
запроса: 

all (х: (1 1 Link Link Or) com x) 

Упражнение 4. 10 

а) is ((1 1 Link Link Nand) equiv (1 1 Not Not Or)) 

б) all (x y: tab (2 Nor x y)). 

all (x: (1 1 Not Not And) com x) 

Упражнение 4.11 

а) is ((2 2 Or Or Or) equiv (2 2 Nor Nor Nand)) 

б) is ((1 3 Nink And Or) equiv (1 3 Not Nand Nand)) 

в) is ((3 1 Or Link And) equiv (3 1 Nor Not Nor)) 

Отметим, что аналогичную информацию и даже несколько большую можно 
получить с помощью, например, такого запроса: 
а1Г(х: х isequiv (3 1 Or Link And) 



5. БАЗЫ ЗНАНИЙ 


Ранее уже отмечалась важная роль средств представления 
знаний в системах искусственного интеллекта и, в частности, 
в экспертных системах. Конечно, для создания и эксплуатации 
экспертных систем мощности бытовых ЭВМ недостаточно. Маши¬ 
нам данного типа не хватает, например, внешней памяти, так как 
для хранения знаний, необходимых при решении даже небольших 
практических задач, требуется не менее 1000К памяти на гибких 
дисках. 

Для эффективного управления данными, расположенными во 
внешней памяти, требуются довольно сложные программы. Весь 
процесс работы с данными может контролироваться специаль¬ 
ными программными средствами, называемыми системами управ¬ 
ления базами данных (СУБД). Обычно в СУБД входит специаль¬ 
ный язык, ориентированный на управление данными. Обращение 
к программам СУБД может осуществляться с помощью вызовов 
из программ пользователей, написанных на обычных языках 
программирования. Следует учитывать, что в большинстве слу¬ 
чаев все же целесообразнее использовать на микроЭВМ программы 
обработки данных, работающие с простыми файловыми системами. 

Огромные размеры профессиональных баз данных заставляют 
предъявлять высокие требования к быстроте обработки информа¬ 
ции и скорости доступа к данным. Развитие методов параллельной 
обработки в недалеком будущем обеспечит реализацию алгорит¬ 
мов быстрого доступа к данным не на программном (как это де¬ 
лается сейчас), а на аппаратном уровне. Скорость доступа к дан¬ 
ным на диске при этом должна стать сравнимой со скоростью 
доступа к устройствам полупроводниковой памяти. 

Во многих случаях возникает необходимость обеспечить такой 
режим работы, когда к одному файлу обращаются несколько 
пользователей, которые к тому же могут находиться на большом 
расстоянии от ЭВМ. Такой режим работы называется мульти¬ 
доступом. В указанном режиме в любой момент времени каждая 
запись базы данных может быть доступна только одному пользо¬ 
вателю — остальные вынуждены ждать. Очевидно, что время 
такого ожидания пропорционально размерам обрабатываемых 
записей. 
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СУБД должны обеспечивать простой и удобный даже для 
новичков доступ к данным, хранящимся в базе. Важно, что поль¬ 
зователю в этом случае совсем не обязательно знать внутреннюю 
структуру базы данных. Для удобства ввода информации в на¬ 
стоящее время используются более простые, чем обычная клави¬ 
атура устройства, такие, как электронный планшет, мышь, функ¬ 
циональная клавиатура, световое перо, а также системы речевого 
ввода. 

В данном разделе понятие база данных используется в тради¬ 
ционном смысле, особенности же применения различных устройств 
ввода, а также работа СУБД в многопользовательском режиме 
здесь не рассматриваются. 


5.1. РЕЛЯЦИОННАЯ БАЗА ЗНАНИЙ 

Для демонстрации основных положений в настоящем разделе * 
будет использоваться информация о матчах команд английской 
футбольной лиги. Эти данные обладают хорошо упорядоченной 
однородной структурой, т. е. качеством, редко встречающимся 
в большинстве реальных баз данных, но позволяющим более 
просто усвоить основные принципы их построения. Между тем, 
описываемые ниже методы легко могут быть применены для 
данных других типов. 

Информация о матчах представлена в следующем виде: 

Дома В гостях 

Команда pwdlfa wdlfa Очки 

Arsnl !2 41196 22266 21 

(Арсенал) 

Для обозначения названий команд используются сокращения 
из пяти букв: одинаковый формат названий облегчает их вывод 
на экран. Для каждой команды, после общего числа сыгранных 
матчей (р), отдельно для игр на своем поле и в гостях (на поле 
соперника) перечисляются следующие данные: число выигранных 
матчей (w), число проигранных (1) и сведенных вничью игр (d), 
а также число забитых (f) и пропущенных (а) мячей. Наконец, 
последним в этом ряду стоит количество очков, набранных данной 
командой в сезоне. 

Прежде всего необходимо установить, какие из перечисленных 
показателей необходимо запоминать в базе данных и в каком 


* Здесь и далее рассматриваются два типа программ. Первые из них содер¬ 
жат различные данные, например, результаты футбольных матчей, сведения о 
наличии материалов на складе и т. д. Программы второго типа содержат описа¬ 
ния отношений, предназначенных для разного рода манипуляций с данными, 
содержащимися в программах первого типа. В системах искусственного интел¬ 
лекта принято разделять базы данных и базы знаний. В рассматриваемом случае 
программы первого типа соответствуют базам данных, тогда как программы вто¬ 
рого типа можно отнести к базам знаний. — Прим. пер. 
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формате их следует хранить. Очевидно, что число сыгранных 
матчей равно сумме выигранных, проигранных и сведенных 
вничью, поэтому данный показатель хранить нет необходимости. 
Отказываясь от его запоминания в базе данных, мы экономим 
память. Однако, поскольку этот показатель придется при каждом 
запросе вычислять, мы тем самым будем проигрывать во времени. 

Следует также учесть, что хранение общего числа сыгранных 
матчей приведет к потерям во времени при еженедельном обнов¬ 
лении информации. Аналогичные выводы могут быть сделаны 
по поводу показателя «Очки», так как он может быть вычислен 
по формуле w х 3 + d, где w и d — общее число выигранных 
и сведенных вничью матчей. Для начала договоримся не запоми¬ 
нать указанные два показателя, а вычислять их при поступлении 
запросов. 

Рассмотренные выше показатели каждой команды объеди¬ 
няются в список, состоящий из двух аналогичных друг другу 
подсписков, первый из которых состоит из показателей для игр, 
проведенных дома, а второй — для матчей на чужих стадионах. 
Соответствие между названиями команд и списками показателей 
устанавливается с помощью отношения form (сформированная- 
строка-показателей), например, следующим образом: 

Arsnl form ((4 1 1 9 6) (2 2 2 6 6)). 

Все команды лиги играют только с командами своей под¬ 
группы. Поэтому можно для каждой подгруппы использовать 
отдельную программу. Такие программы будут работать быстрее, 
чем одна общая для всей лиги. В начале каждого сезона необхо¬ 
димо проводить инициализацию таблиц для каждой подгруппы. 
Для этой цели можно использовать отношение setup (установить- 
начальные-значения): 

X setup if 

(team X) is-told and 

(X form (0 0 0 0 0) (0 0 0 0 0) add 

Названия команд могут вводиться в произвольном порядке 
и, поскольку применяется реляционная модель хранения, поль¬ 
зователю не нужно знать, где именно в базе данных размещается 
информация о каждой команде. Однако можно обнаружить, что 
во время инициализации списков подгрупп информация может 
каждый раз записываться на новое место. 

Пользователь может ввести названия команд подгруппы сле¬ 
дующим образом: 

all (: X setup) 

[определить все (: X установить-начальные-значения) ] 

Team X ? ans Mnutd 

[команда X ? ответ Манчестер-Юнайтед 1 

Team X ? ans Lpool 



[команда X ? ответ Ливерпуль) 

Team X ? ans Chlse 
[команда X ? ответ Челси] 

Team X ? just Arsnl 

[команда X ? последний ответ Арсенал] 

No (more) answers 
[Ответов (больше) нет] 

В этом случае по команде list form будет выдана следующая 
информация, представляющая собой начальный вариант таблицы 
первенства: 

Mnutd form ((0 0 0 0 0) (0 0 0 0 0)) 

Lpool form ((0 0 0 0 0) (0 0 0 0 0)) 

Chlse form ((0 0 0 0 0) (0 0 0 0 0)) 

Arsnl form ((0 0 0 0 0) (0 0 0 0 0)) ... 

После того, как подгруппа сформирована, отношение setup 
может быть удалено. 

При вводе могут быть допущены ошибки или появится какая- 
либо причина для внесения исправлений в таблицу. Можно было 
бы воспользоваться командой редактирования для формирования 
таблицы, но лучше применять для этой цели специальные сред¬ 
ства, например, приведенное ниже отношение correct (исправить): 

X correct if 

(team X form ((Y Z x у z) (XI Y1 Z1 xl yl))) is-told and 

(X form ((Y Z x у z) (XI Yl Z1 xl yl))) add and 

(X form zl) delete 

Следующий диалог демонстрирует использование данного от¬ 
ношения: 

all (X: X correct) 

[определить все (X: X изменить)] 

Team X form ((Y Z х у z) (Xl Yl Zl xl yl)) ? just Mnutd 6 0 
0 15 0 5 1 0 15 4 

[команда X формировать ((Y Z x у z) (Xl Yl Z xl yl)) ? noc- 
ледний-ответ Манчестер-Юнайтед 600 1505 1 0 154] 
Mnutd 

[Манчестер-Юнайдет ] 

No (more) answers 
[Ответов (больше) нет] 

Для иллюстрации материалов данного раздела была взята 
информация о положении команд первой подгруппы на 13 ок¬ 
тября 1985 г., приведенная полностью в табл. 5.1. 
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Таблица 5.1 

Вариант заполнения турнирной таблицы 

Mnutd form ((бае 15 Я) (5 1*15 4)) 

Lpool form «6 0 0 17 2)( 132 10 11» 

ChUe form ((6 0* 12 2)(132 59)) 

Arsnl form ((4 1 196X2226 6» 

Shefw form ((2 31 11 13X40 2 8 7» 

Evrtn form ((4 11 13 S) (2 1 3 8 9» 

Wtfrd form((6 0 0 19 4X0 157 17» 

Ncstl form ((4 1 1 14 6) (1 3 2 6 12» 

Q-PR form «50 1 114X10 5 4 13» 

Spun form «4 0 1 184X12 3 59» 

Wsthra form «3 2 1 12 6X1 3279» 

Nottf form «3 0 3 9 6X2 139 10» 

Bmham form «4 1 1 7 4X10 4 3 12» 

Luton form «2 40 85)(1 237 11» 

Cvtry form «3 1 2 13 7)(0 4 2 5 9» 

Avila form((l 3288X2 2 287» 

Shmtn form «2 40 94)(• 15410» 

Oxfrd form «2 31 10 5X0 2 58 21» 

Leics form «2 4 1 12 12) (0 1 5 2 1 5» 

Mncty form((l 23611X1 14611» 

Ip»wh form((l 2348X10 53 12» 

W-B-A form «0 2 46 15X0 154 19» 

Далее рассмотрим отношения, используемые для периодиче¬ 
ского обновления данных турнирной таблицы. Сначала покажем, 
как данная операция может быть реализована с помощью встроен¬ 
ных средств Пролога. При выполнении операции обновления 
должна быть доступна каждая запись таблицы. Вот пример за¬ 
проса, позволяющего получить одну из записей, относящуюся 
к команде, обозначенной как Luton: 
all (х: х form ((у | г) X) and у LESS 4) 

((2 4 0 8 5) (1 2 3 7 11)) 

Для того чтобы определить команды, выигравшие дома более 
четырех матчей, можно использовать следующий запрос: 
all (х у: х form (Y | z) X) and у LESS 4) 

Mnutd 6 
Lpool 6 
Chlse 6 
Q-P-R 5 

No (more) answers 

Следующий пример демонстрирует возможность использова¬ 
ния средств Пролога для составления списков: 
all (х у z: х form (X (z г г \ Z)) and 
у form (Y (z 7 г. Zl)) and 
х LESS у) 

Arsnl AVlla 2 

Данный запрос позволяет определить команды, имеющие одина¬ 
ковое число выигранных, проигранных и сведенных вничью матчей. 
Если читатель не смог сразу вспомнить назначение условия 
х LESS у, ему следует попробовать выполнить тот же запрос без него. 




Упражнение 5.1 

Составьте запросы для получения: 

1) числа игр, проведенных данной командой дома; 

2) числа игр, проведенных данной командой на чужих ста¬ 
дионах; 

3) общего числа игр, проведенных данной командой; 

4) числа очков, набранных данной командой; 

5) списка команд, имеющих число забитых мячей больше, 
чем у команды Вест Хэм (Wsthm). 

Упражнение 5.2 

Составьте отношения, с помощью которых можно найти: 

1) название команды, оказавшейся наиболее результативной 
в играх, проведенных дома; 

2) название команды, оказавшейся наиболее результативной 
в играх, проведенных на чужих полях; 

3) название команды, забившей наибольшее число мячей 
во всех играх. 

С помощью предложенных выше упражнений читатель смог 
убедиться в том, что работать с базой данных, пользуясь только 
встроенными средствами микроПролога, не очень удобно. 

Запросы получаются длинными, к тому же составлять их не 
так просто. Доступ к информации хорошо организованной базы 
данных должен быть простым и удобным для пользователя. 
Отношения, определенные в программе 5.1, позволяют легко 
делать запросы для получения информации, аналогичной той, 
которая требовалась в упражнениях 5.1 и 5.2. 

Программа 5.1 

X htop Y if 

hgoals Z and 

Y max Z and 

form (X ((xyzYXl)Yl)) 

X stop Y if 

agoals Z and 

Y max Z and 

form (X (x (y z XIY Yl))) 

X alltop Y if 

allgoals Z and 

Y max Z and 

form (X ((x у z XI Yl) (Z1 xl yl zl X2))) and 
SUM (XI zl Y) 
hgoals X if 

X isall (X: form (Y((ZxyXz)XI))) 
agoals X if 

X isall (X: form (Y (Z (x у z X XI)))) 
allgoals X if „ 

X isall (X: form (Y ((Z x у z XI) (Yl Zl xl у 1 zl))) and SUM (z у 1X)) 

X max Y if 

X ON Y and 

(forall Z ON Y and not Z EQ X then Z LESS X) and 

I 




Приведем краткую характеристику функций, реализуемых 
отношениями программы 5.1: 

htop — поиск команды, оказавшейся наиболее результатив¬ 
ной в играх на своем поле; 

atop — поиск команды, забившей наибольшее число голов 
в играх на чужих полях; 

alltop — поиск наиболее результативной команды; 
hgoals — получение списка, каждый элемент которого пред¬ 
ставляет собой общее число мячей, забитых командой в играх, 
проведенных дома; 

agoals — получение списка, каждый элемент которого пред¬ 
ставляет собой общее число мячей, забитых командой в матчах 
на чужих полях; 

allgoals — получение списка, каждый элемент которого пред¬ 
ставляет собой общее число забитых командой мячей; 

шах — поиск максимального элемента в произвольном 
списке. 

К программе 5.1 можно обратиться, например, следующим 
образом: 

all (х у: х htop у) 

[определить все (х у: х забито-наиболынее-число-мячей у) 1 
Wtfrd 19 
[Вутфорд 19] 

No (more) answers 
[Ответов (больше) нет 1 

Упражнение 5.3 

Напишите запросы, которые позволили бы определить команду, 
имеющую: 

1) наибольшее число забитых мячей как дома, так и 
в гостях; 

2) наибольшее число забитых мячей во всех играх и в играх 
дома; 

3) наибольшее число забитых мячей во всех играх и в играх 
на чужих полях. 

В зависимости от дальнейщего использования базы данных 
программист может дополнить программу другими отношениями. 
Если понадобятся сведения о максимальных значениях других 
показателей, то соответствующие отношения могут быть состав¬ 
лены по аналогии с приведенными в программе 5.1. Однако в том 
случае, когда нужно получать показатели по какой-либо одной 
команде, в качестве образца можно взять программу 5.2. Если же 
необходимы оба типа информации, указанные программы могут 
быть объединены в одну. 
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Достоинством Пролога является то, что программы могут 
присоединяться к другим уже загруженным ранее в рабочую 
область программам, без перегрузки последних. Однако в таких 
случаях необходимо избегать совпадения названий вводимых 
отношений с ранее размещенными в рабочей области. 

Когда разработка программ полностью завершена, их следует 
оформить в виде модулей. 

Показатели команд разных подгрупп должны храниться в от¬ 
дельных модулях таким образом, чтобы данные могли быть за¬ 
гружены в рабочую область, подвергнуты необходимой обра¬ 
ботке и затем удалены из нее без изменения обрабатывающих 
модулей. Другое преимущество такого способа обработки заклю¬ 
чается в том, что модули, содержащие только информацию о коман¬ 
дах, короче тех, которые включают в себя еще и обрабатывающие 
программы. 

Поэтому для их записи на внешние запоминающие устройства 
требуется меньше времени. 


Программа 5.2 


(X У) match ((X | Z) (Y ; х)) 

(X У) match ((Z х) (у; z)) if 
(ХУ) match (xz) 

result (won drew lost for against) 
Xhrec (Y Z) if 
result x and 
X form (y z) and 
(Y Z) match (x y) 

X arec (Y Z) if 
result x and 
X form (y z) and 
(Y Z) match (x z) 

X rec (Y Z) if 

X hrec (Y x) and 
X arec (Y y) and 
SUM(xyZ) 


В программе 5.2 отношение hrec позволяет получать показа¬ 
тели по играм, проведенным дома, агес — по играм на чужих 
полях и, наконец, гее — по всем играм. Ниже приведен пример 
использования данной программы: 

all (х: Mnutd гес х) 

[определить все (х : Манчестер-Юнайтед все-игры х)] 

(won 11) 

[побед 11 ] 

(drew 1) 
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[ничьих 11 
(lost 0) 

[проигрышей 01 

(for 30) 

[забито 30 1 
(against 4) 

[пропущено 4 I 
No (more) answers 
[Ответов (больше) неті 

Вот другой пример использования программы 5.2, когда тре¬ 
буется получить для всех команд значения одного показателя: 

all (х scored у goals: х rec (for у)) 

[х забил у голов : х все-игры (забито у) 1 
Mnutd scored 30 goals 
[Манчестер-Юнайтед забил 30 голов] 

Lpool scored 27 goals... 

[Ливепуль забил 27 голов! 
и т. д. 


Упражнение 5.4 

С помощью программы 5.2 напишите запросы, позволяющие, 
определить: 

1) все команды, забившие больше 20 голов; 

2) все команды, забившие в играх дома голов больше, чем 
Эвертон (Evrtn); 

3) все команды, забившие одинаковое число голов (требуется 
также вывести и число голов); 

4) все команды, которые больше игр сыграли вничью, чем 
проиграли; 

5) все команды, проигравшие больше матчей дома, чем Арсенал 
(Arsnl) выиграл на чужих стадионах. 


5.2. МОДИФИКАЦИЯ ЗАПИСЕЙ 

Для базы данных, содержащей информацию о футбольной 
турнирной таблице, необходимы средства для регулярного ее 
обновления. Таким средством может служить программа 5.3, 
позволяющая обновлять турнирные показатели, вводя инфор¬ 
мацию о сыгранных матчах с помощью строк типа: 

(название команды хозяев) Н А (название команды гостей), 

где Н и А — числа голов, соответственно забитых и пропущенных 
хозяевами. 
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Программа 5.3 


X adj (Y Z x у) if 

(Team X score Z x Team Y) is-told and 

(either (either x LESS Z and home у and / or Z LESS x and away у 
and /) and / or draw у and /) and 
X adjl (Y Z x y) and 
Xadj2 (YZxy) 

X adjl (Y Z x (y2 XI» if 

(X form((Yl Z1 xl yl zl) X2)) delete and 
SUM (Z yl Y2) and 
SUM (x zl Z2) and 
SUM (y Yl x2) and 
SUM (z Zl y2) and 
SUM (XI xl z2) and 
(X form ((x2 y2 z2 Y2 Z2) X2)) add and 
/ 

X adj2 (Y Zx(y zXl))if 

(Y form (Yl (Zl xl yl zl X2))l delete and 

SUM (Z X2 Y2) and 

SUM (x zl Z2) and 

SUM (y yl x2) and 

SUM (zxl y2) and 

SUM (Xl Zl z2) and 

(Y form (Yl (z2 y2 x2 Z2 Y2))) add and 

I 

home (10 0) 
draw (0 1 0) 
away (0 0 1) 

Для работы программы 5.3 необходим модуль TOLD. Ниже 
приведен возможный вариант диалога с указанной программой: 
all (: х adj у) 

[определить все (: х текущие-изменения у)] 

Team X score Y Z Team x ? ans Arsnl 1 0 Ipswh 

1 команда X счет Y Z команда x? ответ Арсенал 1 0 Ипсвич ] 

Team X score Y Z Team x ? just Evrtn 4 1 Wtfrd 

[команда X счет Y Z команда x? последний-ответ Эвертов 4 I 

Уитфорді 

No (more) answers 

[Ответов (больше) неті 

Если вывести после этого на экран турнирную таблицу (т. е. 
все элементы отношения form), то для указанных четырех команд 
строки изменятся следующим образом: 

Arsnl form ((5 1 1 10 6) (2 2 2 6 6)) 

Ipswh form ((І 2 3 4 8) (1 0 6 3 13)) 

Evrtn form ((5 1 1 17 61(2 1 3 8 9)) 

Wtfrd form ((6 0 0 19 4) (0 1 6 8 21)) 

С помощью отношения add новые предложения добавляются 
в конец списка предложений отношения form. Однако для ноль- 

6 М*к*ллвгтер Дж. 
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зователя безразлично, в каком именно месте размещена инфор¬ 
мация о каждой команде. Отношение adj в программе 5.3 в за¬ 
висимости от результата игры формирует строку параметров 
следующим образом: если выиграли хозяева поля, в строку 
записывается последовательность (1 0 0), если выиграли гости, 
то передается (0 0 1), тогда как в случае ничьей формируется 
последовательность (0 1 0). Далее указанная строка передается 
двум вспомогательным отношениям adj 1 (текущие-изменения-1) 
и adj2 (текущие-изменения-2). Первое из них изменяет запись, 
относящуюея к команде хозяев, прибавляя число голов, забитых 
хозяевами, и число голов, забитых гостями, к значениям соответ¬ 
ствующих показателей. 

Второе отношение выполняет аналогичную операцию, но для 
команды гостей. И то и другое отношение уничтожают записи 
со старыми показателями и добавляют соответствующие обнов¬ 
ленные записи. Хотя обновление таблицы производится каждую 
неделю, за этот период накапливается много информации, что 
вызывает многократное выполнение операций поиска и удаления 
старых, а также добавления новых записей. Поэтому программа 
работает достаточно долго. 

Для повышения эффективности работы системы программы 
обработки следует оформлять в виде самостоятельных модулей 
и хранить их отдельно от программ, содержащих данные. Эго 
можно сделать с помощью системного модуля Пролога MODULES. 
Сначала его надо загрузить в оперативную память, а затем либо 
ввести текст программы 5.3 с клавиатуры, либо, если этот текст 
был предварительно записан на магнитофон, с магнитофонной 
кассеты. 

После того, как вы удостоверитесь, что в программе содер¬ 
жатся только предложения adj, adjl, adj2, home, away и draw, 
введите еще одно дополнительное предложение: 

Module (adjust-mod (adj) (form add delete is-told)) 

Данное предложение содержит два списка. В первом списке, 
называемом списком экспорта, перечисляются имена тех отно¬ 
шений, которые должны стать доступными для внешних вызовов. 
В приведенном примере этот список состоит из одного элемента — 
adj, но при желании его можно было бы дополнить элементами 
adjl и adj2. Второй список, называемый списком импорта, содер¬ 
жит имена отношений, необходимых для работы программы 5.3. 
Отношение form берется из программ пользователя, содержащих 
данные (из баз данных), отношение is-told — из системного мо¬ 
дуля TOLD и, наконец, отношения add и delete — из системного 
модуля SIMPLE. Отношения LESS и SUM в список импорта 
включать не требуется, так как они являются стандартными 
отношениями Пролога и доступны для всех модулей. 

Теперь необходимо ввести с клавиатуры предложение «wrap 
ADJUST», но перед тем, как нажать клавишу «ВВОД», нужно 



включить магнитофон для записи модуля. После завершения 
записи, если не было обнаружено ошибок, на экране должно 
появиться сообщение о том, что рабочая область очищена («Work¬ 
space now clear»). 

Для того чтобы обратиться к модулю ADJUST, нужно пере¬ 
мотать кассету назад и затем загрузить его. К информации о тур¬ 
нирных таблицах подгрупп, заранее записанных на кассету, 
можно обратиться с помощью запроса следующего вида: 
all (: х adj у) 

После ввода указанного запроса на экране должно появиться 
уже знакомое читателю сообщение, приглашающее вводить дан¬ 
ные. Затем соответствующая таблица будет обновлена с помощью 
введенных данных и перезаписана с учетом изменений. Данная 
процедура может быть выполнена для турнирной таблицы каждой 
подгруппы, т. е. для любого файла, содержащего отношение 
типа 

X form ((Y Z х у z) (XI Y1 Z1 xl уі)) 


8.3. СРЕДСТВА МОДИФИКАЦИИ ЗАПИСЕЙ 

Несмотря на то, что модуль ADJUST был создан для обновле¬ 
ния данных футбольной таблицы, он может быть использован 
для модификации файлов, содержащих информацию другого вида, 
но имеющих структуру, аналогичную рассмотренной выше. При¬ 
менению указанного модуля в качестве универсального препят¬ 
ствуют следующие три момента. 

1. В каждом предложении adj 1 и adj2 связь со списком дан¬ 
ных задается с помощью отношения form. Хотя имя этого отноше¬ 
ния в данном случае достаточно удобно, следует все-таки исполь¬ 
зовать более общие, универсальные имена отношений, такие, как 
stat или data. Выбранное имя должно быть включено ,в список 
импорта модуля ADJUST. Следует избегать длинных списков 
импорта и стараться пользоваться одним универсальным отноше¬ 
нием. Пусть, например, в качестве имени универсального отно¬ 
шения выбрано data. Тогда для того, чтобы можно было импорти¬ 
ровать имя выбранного отношения из прикладной программы, 
в нее необходимо добавить следующий фрагмент: 

X data Y if 
X form Y 

Следует отметить, что при использовании универсальных имен 
наглядность программирования до некоторой степени теряется. 
Так, для пользователя описанной выше программы более удобно 
было бы включить в список импорта отношение form. Поэтому, 
чтобы сохранить наглядность текстов программ, необходимо 
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стараться избегать использования унифицированных имен отно¬ 
шений внутри программ. 

2. В рассмотренном примере регулярно обновляемая инфор¬ 
мация состоит из двух подсписков, по пять элементов в каждом. 
Более универсальная программа должна уметь обрабатывать 
списки из произвольного числа подсписков любой длины. 

3. Запрос типа «Team X score Z х Team Y» удобен для обра¬ 
ботки данных турнирных таблиц, но явно не подходит для других 
приложений. 

Программа 5.4 обеспечивает работу с базами данных более 
общего типа. При этом пользователь должен указать список всех 
используемых полей, всех ключей и всех отношений, связывающих 
ключи с полями. 


Про 


райка 6.4 


begin X if 

(X list fields) is-told and 
(field X) add and 
Y zero X and 
(zero-field Y) add 
begin X if 

(X list keys) is-told and 
(key X) add 
begin (XYZ) if 

(Y state relation name) is-told and 
zero-field Z and 
key x and 
X ON x and 
(X Y Z) add 
(0) zero (X) 

(0 X) zero (Y Z) if 
X zero Z 


Отношение zero возвращает список, содержащий число нулей, 
равное числу элементов заданного списка. Например: 

which (х: х zero (abed е)) 

(00 0 00 ) 

No (more) answers 


Первое предложение отношения begin запрашивает у пользо¬ 
вателя имена всех нолей для обработки и затем добавляет к про¬ 
грамме, находящейся в рабочей области, два предложения: 

field (abode) 
zero field (0 00 0 0) 
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где a, b, с, d и е — имена полей, названные пользователем, a zero 
field представляет собой список с числом нулей, равным числу 
названных полей. 

С помощью предложений отношения begin пользователь вво¬ 
дит значения ключей. После этого к программе, находящейся 
в рабочей области, добавляется предложение: «key (ABCD}», 
где А, В, С и D — значения ключей. 

В третьем предложении запрашивается имя отношения и 
в рабочую область записывается по одному предложению с вве¬ 
денным именем отношения для каждого ранее введенного ключа. 
В рассматриваемом примере будут добавлены предложения сле¬ 
дующего вида: 

А геі (0 0 0 0 0) 

В геі (0 0 0 0 0) 

И т. д. 

Здесь геі — имя отношения, выбранное пользователем. Сле¬ 
дует отметить, что в выражении «(X Y Z) add» из третьего пра¬ 
вила программы 5.4 символ Y обозначает имя введенного отно¬ 
шения. 

Таким образом, пользователь добавляет к своей программе 
отношение, определенное им самим. 

Возможность использования имен отношений в качестве пере¬ 
менных представляет собой одно из мощных средств Пролога. 
В рассматриваемом случае данная возможность позволяет пользо¬ 
вателю создать свой язык управления базой данных. Следует 
отметить, что для правильной работы программы 5.4 число полей 
и число ключей не должно быть меньше двух. Для каждого списка 
полей и каждого списка ключей может быть задано несколько 
разных имен отношений. Ниже приведен пример работы про¬ 
граммы 5.4: 

all (х: begin х) 

[определить все (х: инициализация х)1 
X list all fields ? just (won drew lost for against) 

[X перечислить все поля? последний-ответ (выиграно вничью 
проиграно забито пропущено) 1 
(won drew lost for against) 

[(выиграно вничью проиграно забито пропущено)] 

X list all keys ? just (Mnutd Lpool Chlse Arsnll 
[X перечислить все ключи? последний-ответ (Манчестер- 
Юнайтед Ливерпуль Челси Арсенал)] 

(Mnuted Lpool Chlse Arsnl) 

[(Манчестер-Юнайтед Ливерпуль Челси Арсенал)] 

X state relation name ? just form 

[X установить имя отношения? последний-ответ forml 
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(Mnutd form (0 0 0 0 0)) 

(Lpool form (00 00 0)) 

(Chlse form (000 0 0)) 

(Arsnl form (0 000 0)) 

No (more) answers 
[Ответов (больше) нет! 

Приняв информацию от пользователя, программа повторяет 
введенные им списки имен, полей и ключей, а затем использует 
их при формировании предложений типа «((ключ) (отношение) 
(0 0 0...))». Для того чтобы избежать повторений Пролог-систе¬ 
мой вводимой информации, необходимо вместо tall (х : begin х)» 
использовать «all (: begin х)>. 

В результате работы программы к базе данных, находя¬ 
щейся в рабочей области, будут добавлены следующие предло¬ 
жения: 

field (won drew lost for against) 

zero-field (0 0 000) 

key (Mnutd Lpool Chlse Arsnl) 

(Mnutd form (0000 0)) 

(Lpool form (0000 0)) 

(Chilse form (000 0 0)) 

(Arsnl form (0000 0)) 

Как было указано выше, можно определить несколько имен 
отношений, хотя обычно этого не требуется. Примером такого 
случая, когда для одного отношения могут понадобиться два 
различных имени, является вариант представления турнирной 
таблицы, когда списки с результатами игр, проведенных дома, 
хранятся отдельно от списков с результатами матчей на чужих 
полях. В качестве имен отношений для такого способа хране¬ 
ния информации могут быть выбраны, например, hform и aform 
для каждой из двух указанных частей базы данных соответ¬ 
ственно. В этом случае с помощью двух отношений устанавливается 
связь между именем ключа (названием команды) и соответствую¬ 
щими двумя списками. В рассмотренном выше примере был 
определен входной формат, в котором для каждой команды обес¬ 
печивался ввод следующих полей: won (число выигранных мат¬ 
чей), lost (число проигрышей), for (забитые мячи) и against (про¬ 
пущенные мячи). Вводимые данные помещались в эти списки, 
относящиеся к одной и той же команде. 

Однако можно предусмотреть раздельный ввод в эти два 
списка: 

all (: begin х) 

[определить все (: инициализация х)1 
X list all fields Р just (won drew lost for against) 
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IX перечислить все поля? (выиграно вничью проиграно забито 

пропущено) 1 

X list all keys ? just (Mnutd. Lpool Chlse Arsnl) 

IX перечислить все ключи? последний-ответ (Манчестер-Юнай- 

тед, Ливерпуль, Челси, Арсенал)] 

X state relation name ? ans hform 

IX установить имя отношения? ответ hform 1 

X state relation name ? just aform 

IX установить имя отношения? последний-ответ aform] 

Здесь Пролог-система не повторяет вводимых пользователем 
строк, так как запрос начинается с предложения «all (: begin х)». 
В результате работы программы 5.4 к рабочей области будут 
добавлены следующие предложения: 

field (won drew lost for against) 

zero-field (00 00 0) 

key (Mnutd Lpool Chlse Arsnl) 

(Mnutd hform (0 000 0)) 

(Lpool hform (0 0 0 0 0)) 

(Chlse hform (0000 0)) 

(Arsnl hform (000 0 0)) 

(Mnutd aform (00 00 0)) 

(Lpool aform (0 0 0 0 0)) 

(Chlse aform (0 00 0 0)) 

(Arsnl aform (0 0 0 0 0)) 

Программа 5.4 может быть использована для создания баз 
данных различного типа. Таким образом, по сравнению с ранее 
рассмотренной программой, основанной на отношении setup, 
ее можно считать более универсальной. Прежде чем продолжить 
изучение книги, читателю рекомендуется выполнить упражнения 
5.5 и 5.6. 

Упражнение 5.5 

С помощью программы 5.4 создайте базу данных для трех 
фирм — Мак Ду (McDoo), Фи (Fee) и Хоум (Ноте), торгующих 
строительными материалами: песком (sand), цементом (cement), 
кирпичом (bricks), бетонными блоками (blocks), гравием (gravel), 
штукатуркой (plaster) и краской (paint). Начальные значения 
полей должны быть нулевыми. 


С помощью составленной в предыдущем упражнении программы 
создать базу данных, содержащую информацию о покупке й 
продаже указанных в том же упражнении строительных мате- 
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риалов (сформировать отношения, аналогичные рассмотренным 
выше hform и aform для обработки результатов игр, проведенных 
дома, и матчей на чужих полях, соответственно). 


6.4. МИНИАТЮРНАЯ СУБД 

Теперь, используя идеи, описанные в предыдущих разделах, 
построим небольшую систему управления базами данных. Хотя 
по сравнению с настоящими наша СУБД будет намного проще, 
но ее использование поможет читателю ближе познакомиться 
с проблемами, возникающими при создании больших СУБД. 
При разработке СУБД следует учитывать, что система должна быть 
удобна как для обучения работе с ней, так и в процессе самой ра¬ 
боты. В системах, предназначенных для обработки данных только 
одного типа, все виды запросов от пользователя легко преду¬ 
смотреть заранее. В отличие от указанных примитивных систем 
все запросы к универсальным СУБД заранее предвидеть нельзя. 
Поэтому при построении системы необходимо учесть возможность 
появления непредусмотренных запросов. 

Можно выделить три режима работы СУБД: инициализацию, 
модификацию и чтение информации. В режиме инициализации 
база данных создается. При этом определяются типы данных, 
предназначенных для хранения, программные средства доступа 
к информации и общий объем базы данных. При модификации 
базы данных пользователь может исправлять, удалять или до¬ 
бавлять отдельные поля, ключи и записи. В режиме чтения (или 
доступа) пользователи получают информацию из базы данных. 
При этом доступ может осуществляться по значению ключей и 
отдельных полей записей. В ряде случаев различные режимы 
могут быть совмещены. 

Например, инициализация базы может выполняться с вводом 
(модификацией) данных. Часто объединяют также режимы чте¬ 
ния и модификации. 

Как было указано ранее, система программирования микро- 
Пролог может рассматриваться как СУБД реляционного типа. 
Пользуясь данной системой как своего рода оболочкой, опытные 
программисты могут создавать разнообразные СУБД для поль¬ 
зователей, не обладающих навыками работы на языке Про¬ 
лор. При создании таких СУБД ряд функций микроПро- 
лога будет дублироваться. Так, например, с помощью встро¬ 
енных средств рассматриваемой системы можно отредактиро¬ 
вать предложение некоторого отношения, зная номер данного 
предложения. 

Однако в большой программе отношение может содержать 
сотни предложений, и поиск нужного среди них в таком случае 
становится для неопытного пользователя довольно затрудни- 
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тельным. Создавая нашу СУБД, мы будем пытаться сделать ука¬ 
занный процесс исправления записей более удобным и простым 
для пользователей. 

5.5. ИНИЦИАЛИЗАЦИЯ БАЗЫ ДАННЫХ 

Прежде всего следует написать процедуру, инициализирующую 
основные поля, названия ключей, а также позволяющую опреде¬ 
лить вид отношения, связывающего ключи с полями. Кроме этого, 
процедура инициализации должна в случае необходимости обес¬ 
печить добавление новых полей, ключей и даже отношений. 
При этом не следует забывать о простоте доступа к информации 
базы данных. 

Модернизируем программу 5.4 так, чтобы можно было с ее 
помощью осуществлять инициализацию базы данных. Текст новой 
программы 5.5 приводится ниже. 

Программа 5.5 

begin X if 

(X list fields) is-told and 
(fields X) add and 
Y zero X and 
(zeroes Y) add 
begin X if 

(X list keys) is-told and 
(keys X) add 
begin X if 

(X list relations) is-told and 
(rels X) add 
begin (XYZ)if 
keys x and 
X ON x and 
rels у and 
YONyand 
zeroes Z and 
(XYZ)add 
(в) zero(X) 

(0|X) zero (YIZ) if 
X zero z 

Module (begin-mod (begin zero) (add is-told 
rels)) 

Данную программу [с последней строкой QN fields keys zeroes 
rels)) вместо rels))] следует оформить в виде отдельного модуля, 
для чего необходимо загрузить модель MODULES, после чего 
выполнить команду «wrap BEGIN». Последние четыре отноше¬ 
ния из включенных в список импорта обеспечивают генерацию 
произвольной базы данных. 

После этого рабочая область будет очищена. Затем получен¬ 
ный модуль нужно заново загрузить, выполнив команду «load 
BEGIN». Теперь можно создавать базу дйнных, но сначала 



с помощью команды «KILL modules-mod» необходимо очистить 
память. 

В качестве примера создадим базу данных, содержащую 
информацию о состоянии хозяйства фермеров: Хилл (Hill), Дейл 
(Dale), Мидоуз (Meadows) и Рокс (Rocks). В эту базу данных 
будут вводиться сведения о численности птицы и поголовья скота 
этих фермеров. Ниже приводится пример диалога при инициа¬ 
лизаций указанной базы данных: 

all (х: begin х) 

[определить все (х: инициализировать х) ] 

X list all fields ? just (cows pigs sheep fowl) 

[X перечислить все поля? последний-ответ (коровы свиньи 
овцы птица)] 

(cows pigs sheep fowl) 

[(коровы свиньи овцы птица) ] 

X list all keys ? just (Hill Dale Meadows Rocks) 

[X перечислить все ключи? последний-ответ (Хилл Дейл Ми 
доуз Рокс)] 

(Hill Dale Meadows Rocks) 

[(Хилл Дейл Мидоуз Рокс)] 

X list all relations ? just (in out) 

[перечислить все отношения? последний-ответ (in out)] 

(in out) 

(Hill in (0 0 0 0)) 

(Hill out (0 0 0 0)) 

(Dale in (0 0 0 0)) 
и T. д. 

В результате выполнения данной программы будет создана 
следующая база данных: 

list all 

fields (cows pigs sheep fowl) 

zeroes (0 0 0 0) 

keys (Hill Dale Meadows Rocks) 

in rels out 

Hill in (0 0 0 0) 

Meadows in (0 0 0 0) 

Hill out (0 0 0 0) 

Dale out (0 0 0 0) 

Meadows out (0 0 0 0) 

Итак, с помощью модуля BEGIN сгенерирована база данных 
с нулевыми начальными значениями полей. Теперь перейдем 
к созданию модуля, позволяющего модифицировать эту базу 
данных. Но сначала остановимся на некоторых особенностях 
процесса модификации. 
і:о 



1. Отношения in и out могут быть определены иначе, чем было 
предложено раньше, — с помощью команды микроПролога accept. 
В этом случае при вводе данных каждый ключ и каждое поле 
должны набираться на клавиатуре полностью, например, как 
показано ниже: 

accept in 

in (Hill (0 0 0 0)) 
in (Dale (0 0 0 0)) 
и T. Д. 

Таким образом, прежний вариант позволяет избежать лишней 
работы по вводу данных. Хотя значения нолей рано или поздно 
должны быть введены, при генерации базы данных для боль¬ 
шей части полей они часто бывают еще не известны. Модуль 
BEGIN обеспечивает ввод нулевых значений для неопреде¬ 
ленных данных и, таким образом, формирует базу данных пол¬ 
ностью. 

2. Первые четыре предложения программы 5.5 служат для 
определения структуры записей базы данных, а также способов 
доступа к этим записям. С помощью этих предложений пользова¬ 
тель может самостоятельно добавлять или уничтожать отдель¬ 
ные ключи, поля или отношения. При этом от него не требуется 
знать, где в базе данных размещены указанные элементы. 

3. Модуль, полученный из программ 5.5, позволяет создавать 
различные базы данных, в которых для одного ключа устанав¬ 
ливается связь с определенным набором полей с помощью от¬ 
ношения, задаваемого пользователем. 

4. С помощью обобщенной формы модуля BEGIN пользова¬ 
тель может определять отношения, наиболее подходящие для 
его целей. Так, например, два отношения in и out, заданные поль¬ 
зователем в приведенном выше примере, предназначены для 
внесения в базу данных изменений об увеличении или, соответ¬ 
ственно, уменьшении численности птицы и поголовья скота. 

5. Отношение rels, описанное в программе 5.5, аналогично 
во многом встроенному отношению микроПролога diet, но в от¬ 
личие от последнего содержит только имена отношений без ука¬ 
зания ключей и полей. 


С помощью модуля BEGIN постройте базы данных, содержа¬ 
щие следующую информацию: 

1) отметки студентов по различным предметам; 

2) имена игроков различных команд; 

3) число книг в вашей библиотеке по каждой тематике от¬ 
дельно; 
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4) число растений в вашем саду (по каждому виду отдельно); 

5) номера автобусных маршрутов (по каждой улице отдельно). 
При выполнении указанных упражнений следует ограничиться 

небольшим количеством ключей и полей и избегать громоздких 
примеров. Базы данных должны содержать лишь начальные ну¬ 
левые значения. 


6.6. ОБНОВЛЕНИЕ БАЗЫ ДАННЫХ 

В процессе работы с базой данных может возникнуть необ¬ 
ходимость в ее модификации, т. е. в добавлении новых ключей, 
полей или отношений. Указанные операции можно выполнить 
с помощью встроенных отношений add, delete и edit, но при этом 
необходимо располагать полными сведениями о содержимом базы 
данных. В связи с этим такой способ скорее всего будет сопрово¬ 
ждаться многочисленными ошибками. Нам же необходима про¬ 
грамма, которая после получения от пользователя соответствую¬ 
щей команды сможет выполнить все операции по модификации 
базы данных автоматически. 

Сначала рассмотрим случай, когда либо новая информация 
добавляется в базу данных, либо производится модификация 
данных, уже имеющихся в базе. Варианты, возможные в этом 
случае, приведены в табл. 5.2. 

Каждая строка табл. 5.2 
соответствует какому-либо ва¬ 
рианту запроса. Если запрос 
изменяет ключ, поле или от¬ 
ношение, то в соответствующей 
его позиции стоит «да». В про¬ 
тивном случае эта позиция по¬ 
мечается словом «нет». Можно 
создать отношение, которое из¬ 
меняло бы базу данных по опи¬ 
санным выше запросам, но опе¬ 
рации модификации в этом слу¬ 
чае выполнялись бы очень мед¬ 
ленно. Разобьем все процеду¬ 
ры изменения базы данных на 
два класса: к первому отнесем те из них, в которых изменению 
подлежат уже существующие поля базы данных, а ко второму — 
все остальные. В соответствии с этими двумя классами создадим 
два отношения: addf (для добавления нового поля) и update (для 
добавления новых ключей, отношений, а также модификации 
существующих записей). Указанные отношения представлены 
в программе 5.6. С помощью данной программы можно модифици¬ 
ровать любую базу данных, созданную с использованием модуля 
BEGIN. 


Таблица 5.2 
Варианты типов запросов 
для изменения базы данных 


Поле 

Ключ 

Отношение 

Нет 

■ Нет 

Нет 

Нет 

Нет 

Да 

Нет 

Да 

Нет 

Да 

Да 

Да 

Да 

Нет- 

Нет 

Да 

Нет 

Да 

Да 

Да 

Нет 

Да 

Да 

Да 
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Про 


5.6 


addfXif 

(fields Y) delete and 
(X new field) is-told and 
APPEND (Y(X)Z) and 
(fields Z) add and 
(zeroes *) delete and 
APPEND (x (0) y) and 
(zeroes y) add and 
I 

update (X Y Z) if 

(key X relation Y and new data Z) is-told and 
updatel (X Y Z) 
update l(XYZ) if 
X key and 

(either Y rel and / or (rels x) delete and APPEND (x (Y) y) and 
(rels y) add and /) and 
(X Y x) delete and 
(X Y Z) add and 

/ 

updatel (XYZ) if 
not X key and 
(X Y Z) add and 
(keys x) delete and 
APPEND (x(X)y) and 
(keys y) add and 

(either Y rel and / or (rels z) delete and APPEND (z (Y) XI) and 
(rels XI) add and /) and 

I 

X key if 

keys Y and 
XONY 
X rel if 

rels Y and' 

XONY 
X field if 

fields Y end 
XONY 
X elim Y if 

(X key and Y rel) is-told and 
(X Y Z) delete and 

&. 


Эта программа содержит предложения keys (ключи), fields 
(поля), zeroes (нули) и rels (отношения). Отношение addf (доба- 
вить-поле) позволяет добавлять новые поля и при этом произво¬ 
дит соответствующие изменения в списках полей, а также заносит 
нули в добавленные поля. 

Для добавления и изменений ключей и отношений предназна¬ 
чено отношение update (перезаписать). Данное отношение обес¬ 
печивает необходимые изменения в записях базы данных, а также 
осуществляет замену старых предложений программы на новые. 

Отношение elim (исключить) позволяет исключать предло¬ 
жения из любого отношения в программе пользователя. Отме- 



тим, что при использовании данного отношения номер уничто¬ 
жаемого предложения указывать не надо. В этом заключается его 
преимущество перед встроенным отношением микроПролога delete. 
Для более эффективного использования программы 5.6 ее не¬ 
обходимо оформить в виде модуля. Для этой цели к тексту про¬ 
граммы следует добавить предложение 
Module (update-mod (addf update elim 

key field rel) (add delete is-told ON APPEND fields zeroes keys 
rels)) 

Затем необходимо загрузить модуль MODULES и сохранить 
сформированный модуль в файле с именем UPDATE. Ниже при¬ 
водится пример базы данных типа той, что предлагалось сгенери¬ 
ровать в упражнении 5.6, но которую теперь можно создать с по¬ 
мощью модуля BEGIN. Пусть в результате генерации была по¬ 
лучена база данных следующего вида: 

fields (sand cement bricks) 
zeroes (000) 

McDoo keys 
in rels out 
McDoo in ( 0 0 0) 

McDoo out (0 0 0) 

После окончания работы модуля BEGIN его следует удалить 
из памяти, выполнив команду KILL begin-mod, после чего ввести 
команду load UPDATE и приступить к заполнению базы данных, 
например, следующим образом: 
all (: update х) 

key X relation Y and new data Z ans McDoo in (14 6 700) 

key X ... и t. д. ? ans McDoo out (5 2 120) 

key X ... и t. д. ? ans Fee in (55 20 5000) 

key X ... и t. д. ? just Fee out (17 6 600) 

No (more) answers 

Теперь, если вывести программу на экран, можно убедиться, 
что две старые записи с данными о хозяйстве фермера McDoo 
изменились, добавились записи для фермера Fee, а отношение 
keys теперь содержит список (McDoo Fee). 

Следующий пример диалога показывает, как могут быть одно¬ 
временно добавлены новый ключ и новое отношение: 

all (: update х) 

key X relation Y and new data Z? just Home stock (900 50 6000) 
No (more) answers 

Если теперь вывести программу на экран, можно обнару¬ 
жить новое предложение для фермера Ноте, а предложения to 



списками ключей (keys) и отношений (rels) выглядят следую¬ 
щим образом: 

keys (McDoo Fee Home) 
rels (in out stock) 

Далее приведен пример добавления нового поля: 
all (х : addf х) 

X new field ? just blocks 
blocks 

No (more) answers 

В результате списки в предложениях fields и zeroes будут 
выглядеть так: 

fields (sand cement bricks blocks) 
zeroes (0 0 0 0) 

Отметим, что для удаления предложения не нужно знать его 
положение в программе. 

Упражнение 5.8 

Попрактикуйтесь в применении модуля UPDATE к базам 
данных, построенным в упражнении 5.7. 


6.7. ИСПОЛЬЗОВАНИЕ БАЗЫ ДАННЫХ 

Нельзя предусмотреть заранее все пути доступа к базе данных, 
которые могут понадобиться пользователям. Однако, поскольку 
генерация базы данных с помощью модуля BEGIN осуществляется 
пользователем самостоятельно, он может обеспечить необходимые 
для него средства доступа. 

Как уже было отмечено, режимы чтения и модификации дан¬ 
ных часто предусматривают выполнение одних и тех же действий 
и иногда полностью совпадают. Рассмотрим в качестве примера 
базу данных для фирм, торгующих строительными материалами. 
Пользователю в ряде случаев удобно держать информацию о при¬ 
обретенных и проданных материалах отдельно от сведений о дей¬ 
ствительном количестве этих материалов, находящихся в данный 
момент времени на складе. В таком случае с отношениями in 
и out можно использовать отношение stock, которое изменяло бы 
значения, соответствующие количествам различных материалов 
на складе. При другом варианте построения базы данных можно 
отказаться от раздельного хранения сведений о приобретении 
и продаже материалов Вместо этого данные о торговых опера 
циях можно суммировать с числами, характеризующими количе¬ 
ство материалов на складе, но с разными знаками: с плюсом 
в случае приобретения и с минусом в случае продажи. 
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Ниже приводится программа пользователя, созданная с по¬ 
мощью модулей BEGIN и UPDATE. В данной программе 5.7 
сведения о приобретении и продаже хранятся отдельно. 

Программа 5.7 

fields (sand cement bricks) 
zeroes (0 0 0) 
keys (McDoo Fee Home) 
in rels out 

McDoo in (60 15 500) 

Fee in (200 55 1000) 

Home in (500 120 3000) 

McDoo out (20 4 250) 

Fee out (90 10 550) 

Home out (200 70 1900) 

Программа 5.8 позволяет определить количество любого строи¬ 
тельного материала, находящегося в настоящее время на складе. 
Программа может, например, работать следующим образом: 
all (х: McDoo stock х) 

[определить все (х: McDoo имеет-на-складе х) ] 

(40 sand) 

[40 песок] 

(11 cement) 

[11 цемент] 

(250 bricks 
[250 кирпичи] 

No (more) answers 
[Ответов (больше) нет] 

С помощью данной программы можно также получать коли¬ 
чество какого-либо строительного материала у определенного 
торговца. Например, чтобы получить количество песка у торговца, 
необходимо выполнить следующую команду: 
all (х: Fee stock (х sand) 

[определить все (х : Fee ьмеет-на-складе (х песок)) ] 

110 

No (more) answers 
[Ответов (больше) нет] 

Упражнение 5.9 

Напишите запросы для получения: 

1) имен торговцев, на складе которых более 400 кирпичей 
(получить также число кирпичей у этих торговцев); 

2) имен торговцев, имеющих песка больше, чем у Fee; опреде¬ 
лить также, сколько песка на складах у этих торговцев; 

3) количество песка и цемента у каждого торговца. 
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Приведенные выше отношения match и stock должны быть 
присоединены к модулю UPDATE, служащему одновременно 
для чтения и модификации информации в базе данных. 

Отношение match позволяет находить соответствующие друг 
другу элементы списков in и out для того, чтобы затем можно было 
вычислить количество определенного материала на данном складе. 
Указанное отношение может быть эффективно использовано, 
например, в том случае, когда в базе данных хранятся лишь ито¬ 
говые величины. Последовательность действий при этом следую¬ 
щая: чтение данных, соответствующих введенным, затем вычисле¬ 
ние их новых значений и, наконец, запись новых значений в базу 
данных. Для реализации указанных операций предназначены два 
отношения, описанные в программе 5.8. 

Программа S.8 

change (X Y Z) if 

(key X rel Y change Z) is-told and 
change l(XYZ) 
change 1 (X Y Z) if 

(X Y x) delete and 

у isall (y: (z XI) match (x Z) and SUM (XI z y)) and 
Y1 isall (Yl: Y1 ON y) and 
(X Y Yl) add and 

Для практического использования отношений из программ 
5.7 и 5.8 они должны быть оформлены в виде отдельного модуля 
с именем, отличающимся от других рассмотренных выше модулей. 
Новый модуль может быть назван, например, ACCESS. 

Ниже приводится распечатка программы с базой данных, 
созданной с помощью модулей BEGIN и UPDATE. Эту базу 
данных можно использовать для проверки правильности работы 
модуля ACCESS. В ней содержатся сведения о количестве книг раз¬ 
ного вида, предлагаемых несколькими книготорговыми фирмами. 

fields (computers science gardening cookery thriller romance 
western war) 
zeroes (00000000) 
keys (York Luton Leeds Bath Bury Hull) 
in rels out 

Luton in (100 70 120 85 70 200 9? 50) 

Leeds in (80 60 60 70 50 40 60 30) 

Bath in (50 30 30 40 20 50 50 20) 

Hull in (20 30 25 25 40 20 20 20) 

York in (25 25 40 30 30 35 40 15) 

Bury in (25 10 10 20 20 30 25 30) 

York out (3 79 2 12 16 23 12) 

Bath out (13 21 11 24 9 33 8 7) 

Bury out (9 5 3 14 9 19 23 7) 

Leeds out (32 30 27 45 20 19 39 18) 

Hull out (6 4 9 8 2 3 7 4) 

Luton out (35 22 68 41 27 104 52 18) 

7 Макаллистер Дж. 


177 





Для работы с базой данных достаточно уметь обращаться 
к ней при помощи отношений stock и change, что, как можно было 
заметить, не представляет труда даже для неподготовленного 
пользователя. 

С помощью отношения change пользователь определяет, к ка¬ 
кому отношению базы данных (in или out) принадлежит изменяе¬ 
мая запись, указывает соответствующий ей ключ и вводит данные, 
необходимые для модификации этой записи. Отношение changel 
осуществляет поиск в базе данных информации, соответствующей 
списку, введенному с помощью отношения change, а затем сумми¬ 
рует найденные и введенные данные, получая в результате исправ¬ 
ленный список данных. Отношение isall используется в рассмо¬ 
тренном отношении changel дважды. 

Итак, прежде чем приступить к практическому использова¬ 
нию приведенной выше базы данных со сведениями о книготор¬ 
говых фирмах, необходимо оформить программу ACCENS в виде 
модуля, добавив к списку экспорта имена отношений stock и 
change и присоединив к списку экспорта модуля UPDATE имя 
отношения isall. 

Ниже приводятся возможные варианты запросов к базе данных: 


all (х у: х stock у) 

Luton (65 computers) 

Luton (48 science),.. 
all (x у: x stock (y cookery)) 

Luton 44 
Leeds 25... 

all (x у z: x stock (y z) and у LESS 10) 

Bath 9 science 
York 3 war... 

В результате следующего диалога в базу данных будут вне¬ 
сены изменения: 

all (х: change х) 

key х rel у change х ? just Luton out (0 0 0 2 5 22 8 5) 

(Luton out (0 0 0 2 5 22 8 5) 

No (more) answers 

В том, что изменения внесены правильно, можно убедиться 
с помощью следующего запроса, позволяющего вывести содер¬ 
жимое базы данных на экран: 

all (х: Luton out х) 

(35 22 68 43 32 126 60 23) 
all (х: Luton stock х) 

(65 computers) 

(48 science) 

(52 gardening) 

(42 cookery)... 
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Над информацией, хранящейся в рассматриваемой базе данных, 
можно выполнить операции сравнения. Приведенный ниже при¬ 
мер демонстрирует эту возможноеть: 
all (х у: х stock (у war) and Leeds stock (z war) and у LESS z) 
[определить все (x у: x имеет-на-складе (у книг-о-войне) и 
Leeds имеет-на-складе (z книг-о-войне) и у LESS z) ] 

YORK 3 

No (more) answers 
[Ответов (больше) нет ] 

В рассмотренных выше примерах, связанных с информацией 
о книготорговых фирмах, все изменения описывались положитель¬ 
ными числами. Однако возможны случаи, когда изменения удобно 
представлять в виде отрицательных чисел. Такие ситуации могут 
возникнуть, когда фирме приходится принимать книги, возвра¬ 
щаемые по той или иной причине покупателем, или, в другом 
случае, самой возвращать книги другой фирме, у которой они 
были ранее приобретены. Приведенный ниже пример иллюстри¬ 
рует второй из указанных случаев, который может возникнуть, 
когда, например, фирма (Bury) замечает спад покупательского 
интереса к романтической литературе. 

all (: change х) 

key X rel Y change Z ? just Bury in (0 0 0 0 0 -25 в 0) 

No (more) answers 

Теперь можно убедиться в корректности внесенных изменений 
следующим образом: 


all (х: Bury in х) 

(25 10 10 20 20 5 25 30) 

No (more) answers 

Упражнение 5.10 

Составьте запросы, позволяющие определить: 

1) сколько книг-вестернов имеется у каждой фирмы; 

2) названия фирм, у которых книг по садоводству больше, 
чем у фирмы York; 

3) названия всех тех фирм, которые имеют больше книг по 
кулинарии, чем по садоводству; 

4) общее количество художественной литературы у каждой 
фирмы. 

Упражнение 5.11 

Составьте запросы, позволяющие достаточно просто получить 
следующие сведения: 

1) объемы поступлений и продаж по всем видам литературы, 
а также общее число книг на складе для некоторой фирмы; 


7* 
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2) число книг-вестернов, проданных данной фирмой; 

3) прибыль, полученную данной фирмой в результате продажи 
определенного вида литературы при условии, что известны цены, 
по которым книги были куплены и проданы. 

Выполнив предложенные выше упражения, читатель, вероятно, 
смог убедиться в том, что сформировать запросы для получения 
сведений о поступлении на склад* и продаже книг какой-либо 
одной тематики не вызывает особых затруднений. Однако сде¬ 
лать запрос о суммарных показателях по нескольким тематикам 
[см. упражнения 5.11, (1) и (3)1 гораздо сложнее. Следует отме¬ 
тить, что именно запросы такого вида часто используются при 
обращениях к базам данных. В программе 5.9 приведены не¬ 
сколько дополнительных отношений, облегчающих составление 
запросов указанного типа. Эти отношения, а также предложе¬ 
ния, позволяющие упростить определение тематик проданных 
и купленных книг, могут быть присоединены к модулю 
ACCESS. 

Отношение tot первоначально определяет, что сумма элемен¬ 
тов нужного списка равна нулю. Затем с помощью хвостовой 
рекурсии вычисляется сумма всех элементов списка. Следующие 
три отношения, использующие tot, служат для получения объемов 
поступлений, продаж и имеющейся в текущий момент на складе 


Программа б.Ѳ 


О tot 0 
(X Y) tot Z if 
Y tot x and 
SUM(XxZ) 

X in-tot Y if 
X in Z and 
Z tot Y 

X out-tot Y if 

X out Z and 
Z tot Y 

X stock-tot Y if 
X in-tot Z and 
X out-tot x and 
SUM (Y x Z) 

X in-type (Y Z) if 
X in x and 
fields у and 
(Y Z) match (x y) 

X out-type (YZ) if 
X out x and 
fields у and 
(Y Z) match (x y) 

литературы. Запрос может быть, например, таким: 
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all (x у: x in z and z tot y) 


С помощью отношений in-type и out-type можно для каждой 
фирмы получить объемы поступившей и проданной литературы 
определенной тематики. Например: 


all (х у: Hull in-type (х у)) 

20 computers 
30 science . . 

Следует отметить, что рассмотренная выше программа может 
использоваться для работы с базой данных, содержащей сведения 
о приобретении и продаже каких-либо других предметов или 
материалов. Ниже приводится несколько запросов, демонстри¬ 
рующих возможности рассмотренных отношений. 

1. Определить количество научной литературы на складе 
каждой фирмы. 


all (х у: х out-type (у science)) 
York 2 
Bath 21 


2. Найти фирмы, продавшие кулинарных книг больше, чем 
Bury. 


all (х у: Bury out-type (z cookery) and x out-type (y cookery) and z 
LESS y) 

Bath 24 
Leeds 45 

3. Найти фирмы, продавшие книг каждого типа меньше, чем 
это сделал Hull. 


all (х у z: Hull out-type (X z) and x out-type (y z) and у LESS X) 
York 3 computers 
Bury 3 gardening 


4. Найти фирмы, продавшие больше книг по садоводству, 
чем по кулинарии. 


all (х у z: х out-type (у gardening) and х out-type (z cookery) and 
z LESS y) 

York 9 2 
Hull 9 8 
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Упражнение 5.12 


Составьте запросы для получения: 

1) названий фирм, имеющих на складе книг по вычислительной 
технике больше, чем York; 

2) названий фирм, продавших книг каждой тематики больше, 
чем имеется таких же книг на складе фирмы Hull; найти и число 
проданных ими книг по соответствующим тематикам; 

3) названий фирм, на складе которых книг любой тематики 
больше, чем книг по вычислительной технике, проданных фирмой 
Luton (найти также число и тематику книг); 

4) названий фирм, продавших книг по любой тематике больше 
общего количества книг, имеющегося у фирмы Hull (определить 
также число и тематику книг). 


П р о г р 


м а 5.10 


X max if 

X ON Y and 

(forall Z ON Y and not Z EQ X then Z LESS X) 

X min Y if 

X ON Y and 

(forall Z ON Y and not Z EQ X then X LESS Z) 

X ave Y if 

Y tot Z and 

Y items x and 
TIMES (x X Z) 

() items 0 
(X Y) items Z if 

Y items x and 
SUM (x 1 Z) 

frac (XYZ) if 

TIMES (X Z Y) 
percent (X Y Z) if 

frac (x Y Z) and 
TIMES (100 xX) 

В программе 5.10 приведены другие полезные для работы 
с базой данных отношения: нахождение наибольшего и наимень¬ 
шего элементов списка, среднего арифметического, а также от¬ 
носительной величины элемента списка, выраженной в процентах. 
Ниже помещены примеры использования новых отношений. 
1. Определить для каждой фирмы тематику книг, пользую¬ 
щихся наибольшим спросом: 

all (х у z: х out X and у max X and x out-type (y z)) 

York 23 western 
Bath 33 romance 
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2. Определить число полей в записях базы данных. 

all (х: fields у and у items х) 

8 

No (more) answers 

3. Определить для каждой фирмы тематику книг, объем 
продажи которых ниже среднего уровня продажи для данной 
фирмы. 

all (х у z: х out X and Y ave X and x out-type (y z) and у LESS Y) 

York 3 computers 
York Z science 

Если пользователю приходится часто обращаться к базе 
данных с какими-либо однотипными, но сложными по форме за¬ 
просами, то в этом случае к программе следует добавить отно¬ 
шение, позволяющее проще описывать запросы такого типа. На¬ 
пример, приведенное ниже отношение облегчает ввод запросов 
для получения суммарных объемов проданных книг по несколь¬ 
ким фирмам. 


sales-tot X if 

Y isall (Y: Z out-tot Y) and 

Y tot X 


Упражнение 5.13 

Напишите отношение, облегчающее ввод запросов, позволяю¬ 
щих определить: 

1) процентную долю проданных какой-либо фирмой книг по 
отношению к общему объему продажи; 

2) общее число книг определенной тематики, проданных не¬ 
сколькими фирмами; 

3) процентную долю общего количества книг одной тематики, 
проданных несколькими фирмами, по отношению к общему для 
этих фирм объему продажи книг; 

4) тематику книг, пользующихся наибольшим спросом у по¬ 
купателей; 

5) тематику книг, пользующихся у покупателей наименьшим 
спросом. 

Упражнение 5.14 

Для обработки некоторых запросов упражнения 5.13 пона¬ 
добится много времени. Опишите способы ускорения процесса 
получения ответа. Какими преимуществами и недостатками они 
обладают. 
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При выполнении последнего упражнения читатель должен 
был еще раз убедиться в том, что отношения, служащие для 
чтения и обновления базы данных, в значительной степени за¬ 
висят от того, как база данных используется. 

Можно значительно облегчить работу с базой данных, если 
включить в программу отношения, позволяющие упростить вид 
часто вводимых запросов. Так, например, для пользователей 
рассмотренной выше базы данных были бы удобны отноше¬ 
ния, предназначенные для получения выражения в процен¬ 
тах показателей торговых операций и различных итоговых ве¬ 
личин. 

Расчет итоговых показателей часто требует больших затрат 
времени. В таких случаях целесообразнее хранить указанные 
показатели в базе данных, определив их значения заранее. 

В некоторых прикладных задачах даже небольшие изменения 
необходимо вносить в базу данных немедленно. Такой режим 
работы с базой данных используется, например, в системе резер¬ 
вирования авиабилетов, когда в каждый момент времени нужны 
самые последние сведения о проданных и возвращенных билетах. 
В случае базы данных для книготорговых фирм такая оператив¬ 
ность совершенно не нужна. Сведения, хранящиеся в ней, могут 
понадобиться лишь при планировании закупок и продаж, произ¬ 
водящемся не столь уж часто. 

Большая часть моделей микроЭВМ не может обеспечить ни 
1 достаточно высокой скорости обработки запросов, ни доступа 
к базе данных сразу нескольких пользователей. Поэтому для 
построения систем резервирования авиабилетов ЭВМ этого класса 
не годятся. Для микроЭВМ больше подходят задачи, где обнов¬ 
ление информации производится с достаточно большими интерва¬ 
лами времени, например, ежедневно или раз в неделю, как в слу¬ 
чае рассмотренной выше базы данных для книготорговых фирм. 
При таком режиме обновления информации вычисление и зане¬ 
сение в базу данных некоторых итоговых показателей реализо¬ 
вать будет несложно. Однако за ускорение процесса получения 
итоговых данных приходится расплачиваться увеличением объема 
памяти, занимаемой базой данных. 

Ниже приводится полный текст программы, предназначенной 
для модификации и чтения записей базы данных книготорговых 
фирм (программа 5.11). В данной программе объединены отно¬ 
шения, имеющиеся в программах с 5.7 по 5.10, а также отношения, 
обеспечивающие более быстрое получение ответов на запросы, 
аналогичные тем, что нужно было получить в упражнениях 5.13 
и 5.14. С помощью данной программы пользователь может изме¬ 
нять различные поля базы данных. После этого программа выпол¬ 
няет расчет различных итоговых показателей, таких, например, 
как общий объем книг, проданных каждой фирмой, общий объем 
продажи книг по каждой тематике, а также различных показате¬ 
лей, выраженных в процентах. 
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Поскольку указанные расчеты требуют довольно много 
вычислений, соответствующие процедуры будут . выполняться 
долго. 

Поэтому модификацию рассмотренной базы данных следует про¬ 
водить через определенные промежутки времени и вводить сразу 
все накопленные к данному моменту исправления. Об окончании 
ввода пользователь сигнализирует, отвечая на запрос ПроЛог- 
системы сообщением just (последний ответ) или по (ответов больше 
нет). 

Данная программа занимает довольно много места, поэтому, 
чтобы сэкономить память, следует ввести в Пролог-систему 
команду «KILL errmes-mod» и удалить ненужные отношения 
модулей program-mod и query-mod так, как было описано выше. 


Программа 5.11 


(X Y) match ((XjZ)(Y|x)) 

(X У) match ((Z | х) (у | z)) if 
(XY) match (xz) 

X stock (YZ) if 
fields x and 
in (X y) and 
out (X z) and 
(Z XI) match (x y) and 
(Z Yl) match (x z) and 
SUM (Y1Y XI) 
change (XYZ) if 

(key X rel Y change Z) is-told and 
change 1 (XYZ) 
change X if 

outtot KILL and 
intot KILL and 
salestot KILL and 
soldpercent KILL and 
typesales KILL and 
allsales KILL and 
seller KILL 
change X if 

out (X Y) and 

Y tot Z and 

(X outtot Z) add and 
in (X x) and 
x tot у and 
(X intot y) add 
change X if 

Y isall (Y: outtot (Z Y)) and 

Y tot X and 

(X salestot) add 
change X if 

salestot (Y) and 
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outtot (X Z) and 
percent (x Z Y) and 
(X soldpercent x) add 
X change Y if 
X field and 

Y isall (Y: Z outtype (Y X)) and 
(X typesales Y) add 

X change Y if 

typesales (X Z) and 
Z tot Y and 
(X allsales Y) add 
(X Y) change (Z x) if 

у isall (y: allsales (X y)) and 
Z max у and 
x min у and 
allsales (X Z) and 
allsales (Y x) and 
(seller (X Z Y x)) add and 
/ 

change l(XYZ) if 

(X Y x) delete and 

у isall (y: (2 XI) match (x Z) and SUM (XI z y)) and 
Y1 isall (Yl: Y1 ON y) and 
(X Y Yl) add and 

/ 

()tot0 
(X Y) tot Z if 

Y tot x and 
SUM (X x Z) 

X max Y if 

X ON Y and 

(forall Z ON Y and not Z EQ X then Z LESS X) and 

/ 

X min Y if 

X ON Y and 

(forall Z ON Y and not Z EQ X then X LESS Z) and 

/ 

X ave Y if 

Y tot Z and 

Y items x and 
TIMES (x X Z) and 

/ 

() items 0 
(X Y) items Z if 

Y items x and 
SUM (x 1 Z) and 

/ 

percent (X Y Z) if 

TIMES (x Z Y) and 
TIMES (100 xX) and 

/ 
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X stocktot Y if 

intot (X Z) and 
outtot (X x) and 
SUM (Y x Z) 

X intype (Y Z) if 
in (X x) and 
fields у and 
(Y Z) match (x y) 

X outtype (Y Z) if 
out (X x) and 
fields у and 
(Y Z) match (x y) 

X field if 

fields Y and 
X ON Y 
X key if 

keys Y and 
X ON Y 

С помощью данной программы можно, например, обрабатывать 
информацию, хранящуюся в ранее рассмотренной базе данных 
для книготорговых фирм, содержащих отношения in, out, fields, 
keys и rels. Ниже приводится пример диалога пользователя 
с программой 5.11: 
all (: change х) 

[определить все (• изменения х)] 

key X rel Y change Z ? ans Luton out (20 10 12 25 103020 10) 
[ключ X отношение Y изменение Z ? ответ Luton продал (20 
10 15 25 10 30 20 10)] 

key X rel Y change Z ? just Leeds out (5 5 5 10 8 6 5 3) 
[ключ X отношение Y изменение Z ? последний-ответ Leeds 
продал (5 5 5 10 8 б 5 3)]. 


No (more) answers 
[Ответов (больше) нет] 

Многоточиями здесь отмечены пустые строки, генерируемые 
программой после завершения очередного этапа процесса моди¬ 
фикации. Если вместо использованного в приведенном примере 
запроса ввести «all (х : change х)», то вместо пустых строк будут 
выводиться изменяемые при модификации предложения. Несмотря 
на то, что описанный процесс выполняется долго, а база данных 
при этом значительно увеличивается в объеме, ответы на запросы 
типа тех, что требовались в упражнении 5.13, будут выдаваться 
практически без промедления, так как теперь после работы дан¬ 
ной программы они оказываются заранее занесенными в базу 
данных. 

Приведем краткое описание новых отношений, появившихся 
в последней рассмотренной программе: 
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outtot и intot 

salestot 

soldpercent 


typesales 

allsales 

seller 


— общий объем закупок и продаж для фирмы 

— общий объем продажи для нескольких фирм 

— выраженное в процентах отношение объема 
продажи одной фирмы к общему объему 
продажи 

— количество проданных фирмой книг одной 
тематики 

— количество книг одной тематики, проданных 
несколькими фирмами 

— число и тематика книг, пользующихся наи¬ 
большим и наименьшим спросом 


Для того чтобы сохранить изменения, внесенные в базу дан¬ 
ных в результате выполнения программы 5.11, программу с базой 
данных следует оформить в виде модуля, который после того, как 
модификация завершается, может быть убран из памяти командой 
KILL. Следует учитывать, что работа с отдельными модулями 
обеспечивает экономию памяти, а также повышает скорость по¬ 
следовательного доступа к базе данных. 

С помощью рассматриваемой программы пользователь может 
выводить на экран информацию несколькими способами. Самый 
простой из них заключается в том, чтобы полностью выводить 
необходимые отношения. Отметим, что для такого способа поль¬ 
зователю не нужно знать структуру программы с базой данных, 
а о Прологе ему необходимы лишь минимальные сведения. Поль¬ 
зуясь отношениями описанной программы, можно получать раз¬ 
личные, в том числе и не совсем тривиальные сведения. Напри¬ 
мер, следующий запрос позволяет получить общий объем про¬ 
дажи книг по различным тематикам 


list allsales 
computers allsales 123 
science allsales 104 


Чтобы найти процент от общего объема продажи для фирмы 
Вигу, можно воспользоваться таким запросом: 

&all (х: Bury soldpercent х) 

7.9040852 
No (more) answers 

Кроме того, зная структуру программы, пользователь может 
извлекать из базы данных информацию, получение которой 
заранее не предусмотрено. Ниже приведен пример использования 
программы для определения тематики самой ходовой книги, 
объема полученной за нее прибыли и процентной оценки этой 
прибыли по отношению к общему объему прибыли. 



all (x у z: seller (x у j X) and Y salestot and percent (z у Y)) 
romance 23Ѳ 2.0426287E1 
No (more) answers 


Упражнение 5.15 

С помощью рассмотренной программы получите следующую 
информацию: 

1) число книг-вестернов, проданных каждой фирмой; 

2) названия фирм, получивших прибыль менее 10% по от¬ 
ношению к общему объему прибыли; 

3) названия фирм, продавших менее 100 книг; 

4) общее число проданных книг по каждой тематике. 

Упражнение 5.16 

Дополните отношение change предложениями, которые позво¬ 
ляют получать: 

1) процентную долю прибыли каждой фирмы по отношению 
к общей стоимости книг, поступивших в продажу; 

2) наибольшее среди всех фирм число проданных книг одной 
тематики (одновременно выдавать также название фирмы и ука¬ 
занную тематику); 

3) процентную долю прибыли некоторой фирмы, которая 
выручена за книги заданной тематики; 

4) процентную долю прибыли некоторой фирмы за книги 
одной тематики по отношению к общему объему прибыли. 


Ответы к упражнениям 


Упражнение 6.1 

1) all (х: Mnutd form ((X | у) х)) 

2) all (х: Mnutd form (у (х | г))) 

3) all (х: Mnutd form ((у | z) (X I Y)) and SUM (у X х)) 

4) all (х: Mnutd form ((у z | X) (V Z | xl)) and SUM (y Y x2) and SUM 

(z Z x3)) and TIMES (x2 3 x4) and SUM (x3 x4 x)) 

5) all (x y: Wsthm form ((xl x2 хЗ x4 x5) x6 and x form ((у 1 y2 уЗ у y4) 

y5) and х4 LESS у) 


Упражнение 6.2 
См. упражнение 5.3 


Упражнение 5.3 

1) all (х: Mnutd form ((х | у) z)) 

2) all (х у z: х htop у and х alltop г) 

3) all (х у г: х atop у and х all top z) 
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Упражнение 6.4 


1) all (х у: х rec (for у) and 20 LESS у 

2) all (х у: Evrtn hrec (for z) and x hrec (for y) and z LESS у 

3) all (x у z: x rec (for z) and у rec (for z) and x LESS у 

4) all (x у z: x rec (drew y) and x rec (lost z) and z LESS у 

5) all (x y: Arsnl arec (won z) and x hrec (won y) and у LESS z 


Упражнение 5.5 

Возможен такой вариант базы данных: 

held (sand cement bricks blocks gravel plaster paint) 
key (McDoo Fee Putlog) 

При этом удобно использовать отношение stock с записями следующего вида: 
McDoo stock (0 0 0 0 0 0 0) 


Упражнение 5.6 

С помощью той же программы, что и в предыдущем упражнении, следует 
определить два отношения, например, так, как показано ниже: 

X State relation name? ans stockin 
X State relation name? just stockout 

Отношение stockin предназначено для регистрации поступлений на склад, 
тогда как отношение stockout, наоборот, позволяет контролировать продажу ма¬ 
териалов со склада. 


Упражнение 5.7 

Задания (1), (3) и (4) имеют аналогичные решения. Например, для задания 
(3) возможен следующий ответ: 


all (: begin х) 

X List all helds ? just (Computing Gardening Cooking Science Fiction) 

X List all keys ? just (Alan Bill Colin Dora Eve Fred) 

X List all relations ? just (owns) 

Следует отметить, что отношения должны вводиться в виде списка даже 
в том случае, когда определяется одно отношение. 

2. Возможны два варианта: список полей может содержать названия пози¬ 
ций на игровом поле (вратарь, левый защитник и т. д.) или номера игроков от 1 

5. Решение в общем аналогично предложенному в п. (3), но если ввод дан¬ 
ных производится отдельными фрагментами, для некоторых улиц могут быть 
введены несколько подсписков типа (23 20 1 49А). 


Упражнение 5.8 

См. ответ к следующему упражнению. 


Упражнение 5.Й 

1) all (х у: х stock (у bricks) and 400 LESS у) 

2) all (у. у: х stock (у sand) and Fee stock (z sand) and z LESS y) 

3) all (x у z: x stock (y sand) ar.d x stock (z cement)) 
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Упражнение 5.10 

1) all(x у: х stock (у western)) 

2) all (х у: х stock (у gardening) and York stock (z gardening) and у LESS z) 

3) all (x:x stock (z gardening) and x stock (y cookery) and z LESS y) 

4) all (X Y: X stock (xl thriller) and X stock (x2 romance) and X stock 

(x3 western) and X stock (x4 war) and SUM) (xl x2 x5) and 
SUM (x3 x4 x6) and SUM (x5 x6 Y)) 


Упражнение 5.11 

Для выполнения данного упражнения следует ознакомиться с описываемыми 
далее в тексте дополнительными отношениями. 

1) all (х у: х out z and z tot у) 

2) all (x y: z out z and helds X and (y western) maich (z X)) 

3) если прибыль от сбыта книги-вестерна равняется 50 центам, запрос 
all (х у: х out z and fields X and Y western) match (z X) and TIMES (0. 5 Y y)) 
позволит получить выраженную в долларах прибыль за продажу книг-вестернов 
для каждой фирмы. 


Упражнение 5.12 

1) all (х у: х stock (у computers) and York stock (z computers) and z LESS y) 

2) all (x у z: Hull stock (X z) and out-type (y z) and X LESS y) 

3) all (x у z: Luton out-type (X computers) and x stock (y z) and у LESS X) 

4) all (x у z: Hull out-tot X and x out-type (y z) and X LESS y) 


Упражнение 5.13 

1) X sold-percent Y if 

sales-tot Z and 
X out-tot x and 
percent (Y x Z) 

2) X type-sales Y if 

X held and 

Y isall (Y: Z out-type (Y X)) 
X all-sales Y if 

X type-sales Z and 
Z tot Y 
S held if 

helds Y and 
X ON Y 

3) X percent-sales Y if 

sales-tot Z and 
X all-sales x and 
percent (Y x Z) 

4) X bestseller Y if 

Z isall (Z: x all-sales Z) and 

Y max Z and 

X all-sales Y and 

5) X worstseller Y if 

Z isall (Z: x all-sales Z) and 

Y min Z and 

X all-sales Y and 


Упражнение 5.14 

См. следующее упражнение. 
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Упражнение 5.15 

1) all (х у: х outtype (у western)) 

2) all (х: х soldeprcent у and у LESS 10) 

3) all (x: x outtot у and у LESS 100) 

4) либо list allsales, либо all (x y: x allsales y) 


Упражнение 5.18 

1) change X if 

X stocktot Y and 
X outtot Z and 
percent (xZY) and 
(X stockpercent x) add 

2) X change (Y Z) if 

X out x and 
Y max x and 
helds у and 
(Y Z) match (x y) and 
(X outmax (Y Z)) add 

3) change X if 

X outtype (Y Z) and 
Z allsales x and 
percent (y Y x) and 
(X typepercent (y Z)) add 

4) change X if 

X outtype (Y Z) and 
x salestot and 
percent (y Y x) and 
(X allpercent (y Z)) add 

Данные предложения добавляются к программе перед выполнением мо¬ 
дуля UPDATE. 
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6. ЭКСПЕРТНЫЕ СИСТЕМЫ 


Разработка экспертных систем — это такая область искус¬ 
ственного интеллекта, которая в настоящее время привлекает 
всеобщее внимание. Более того многие исследователи считают 
понятия «искусственный интеллект» и «экспертные системы» сино¬ 
нимами. Автору кажется, что следует рассматривать все, что 
связано с созданием экспертных систем, как этап на пути к по¬ 
строению искусственного разума. По крайней мере, это разумный 
компромисс — ведь невозможно сконструировать устройство, ко¬ 
торое смогло бы выполнить весь комплекс свойственных человеку 
интеллектуальных действий, но, с другой стороны, в различных 
достаточно узких прикладных областях могут быть созданы си¬ 
стемы, которые обладают знаниями и умеют оперировать ими прак¬ 
тически так же, как и человек, являющийся экспертом в этой при¬ 
кладной области. Аналогично многим исследователям, экспертные 
системы практически бесполезны за пределами конкретной при¬ 
кладной области. Так, например, экспертные системы, обладаю¬ 
щие значительными знаниями в области разведки нефтерожде- 
ний, окажутся бесполезными, если речь пойдет о футболе. 

Можно ожидать, что экспертные системы будут выполнять 
следующие функции: 

хранить специализированные знания и выдавать их по за¬ 
просам; 

осуществлять логический дедуктивный вывод с использова¬ 
нием «нечеткой» логики; 

обладать способностями к обучению; 

уметь принимать решения или предоставлять информацию 
для принятия решений в области финансовой деятельности, геоло¬ 
гической разведки, построения и тестирования разного рода 
систем и во многих других областях; 

объяснять свое поведение. 

Пятое поколение — это термин, Используемый в Японии для 
обозначения перспективных ЭВМ и новых принципов построения 
экспертных систем, которые впоследствии планируется использо¬ 
вать как базовые для разработки программного обеспечения. 
Правда, часто забывают, что реализация проекта пятого поколе¬ 
ния расзчитывается, пр крайней мере, на десять лет. Аналогич- 
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ные попытки делаются и в европейских странах. Так, финансовая 
поддержка была оказана исследователям по разработке основан¬ 
ных на знаниях интеллектуальных систем. 

Примером сотрудничества в этой области является объеди¬ 
нение усилий двух фирм Racal и Norsk Data. Они разрабатывают 
мощные 32-разрядные системы, ориентированные на обработку 
знаний. Эти системы базируются на процессорах ND-500 и ND-100, 
имеют разделяемую оперативную память, предназначенную для 
параллельной работы нескольких пользователей, снабжены гра¬ 
фическими терминалами с исключительно высокой разрешающей 
способностью (1200 ХІ200) и с независимыми окнами, доступными 
с помощью клавиатуры или «мыши». Базовым языком для этих 
ЭВМ служит Zeta Лисп, созданный в МТИ, кроме того, в некото¬ 
рых приложениях предусматривается использование Пролога. 
Эти системы планируется использовать главным образом в уни¬ 
верситетах, но часть из них должна найти применение в химиче¬ 
ских компаниях, в частности для проведения разведки нефте- 
рождений. 

На первый взгляд, создать экспертную систему очень просто. 
Для этого надо найти эксперта, заставить сообщить все его зна¬ 
ния в данной предметной области, ввести эти знания в ЭВМ, до¬ 
бавить в ЭВМ несколько правил по использованию знаний — и 
можно смело использовать вместо эксперта ЭВМ. В действитель¬ 
ности процесс оказывается более сложным. Ведь, отнюдь, не 
очевидно, что эксперт согласится участвовать в предприятии, 
которое в конце концов может привести к тому, что он, отдав 
свое главное достояние — знания, — окажется ненужным. Даже 
если считать, что этот барьер будет преодолен, останется еще 
много факторов, которые сложно выразить словами, но которые 
оказывают существенное влияние на исход экспертизы. Многие 
из этих факторов определяются почти интуитивно, и эксперт 
зачастую не может передать их системе, поскольку и сам точно 
не знает, как ими пользоваться. 

Другие трудности связаны с тем, что эксперт обычно не яв¬ 
ляется специалистом по программированию, а программист может 
ничего не знать о довольно тонких моментах, характерных для 
данной предметной области. Эти трудности можно преодолеть 
с помощью нового типа специалиста — инженера по знаниям. 
Инженерия знаний как научная дисциплина определяет, каким 
образом получать знания от эксперта, как разрабатывать системы 
по обработке знаний и проектировать программы, ориентирован¬ 
ные на применение этих знаний. Важным аспектом инженерии 
знаний является разработка самих систем инженерами знаний. 
Почти наверняка для экспертных систем потребуется быстродей¬ 
ствующая память большого объема и не универсальная, а специа¬ 
лизированная ЭВМ. Вероятно, экспертные системы будут постав- 
лятся в виде оболочек, которые дадут возможность пользовате¬ 
лям создавать на их основе собственные системы, а не в форме 
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законченных пакетов, ориентированных на конкретные прило¬ 
жения. 

Можно предположить, что экспертные системы легко адапти¬ 
ровать к решению самых разнообразных задач диагностики. 
Например, в области медицины экспертные системы могут быть 
использованы пациентами в случае неопасных заболеваний для 
самодиагностики и врачами для определения диагноза более 
серьезных болезней. Экспертные системы могут оказать помощь 
инженерам по электронике и механике в обнаружении и устра¬ 
нении неисправностей в работе сложной аппаратуры. 

В самых разнообразных областях в проектировании электрон¬ 
ных и механических устройств, в разработке компьютеров и язы¬ 
ков программирования, в планировании экономических процессов 
экспертные системы можно использовать либо для создания за¬ 
конченных систем, либо как инструмент для проектирования и 
разработки отдельных подсистем. С помощью экспертных систем 
можно достаточно быстро создавать прототипы компьютерных 
систем и языков программирования. Дело в том, что экспертные 
системы предоставляют средства для создания тех основных 
элементов, которые являются общими для всех систем такого 
рода, а эксперты производят окончательный отбор и оснащение 
системы необходимыми для работы в конкретной области дета¬ 
лями, В этой и других областях знания эксперта используются 
людьми, которые либо не являются специалистами в этой области, 
либо разбираются в существе дела, но значительно хуже, чем 
ведущие эксперты. 

Ниже представлена простая экспертная система, которая 
позволяет пользователю осуществлять контроль за работой магни¬ 
тофона. Программа 6.1, реализующая экспертную систему, не 
содержит специальных знаний, и будет понятна практически 
всем. Проанализировав работу этой программы, пользователи 
смогут создавать значительно более сложные системы. 

Программа 6.1 
(X Y) match <(Х Z) (Y х)) 

(X Y) match ((Z х) (у z)) if 
(XY) match (xz) 
check X if 

Y fault and 

Y checks Z and 
x ON Z and 

not (x) is-told and 

Y action у and 

(x X) match (Z y) and 
/ 

X fault if 

(fault X) is-told and 
faults Y and 
X ON Y 
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faults (no-sound no-play amplifier supply motor) 
no-sound checks (plugged-in switched-on volume-up mains-fuse 
mains-lead sound-ok) 

no-play checks (cassette-in cassette-rewound on-play tape-moving 
playing) 

amplifier checks (speaker-leads speaker (Vcc 12v) Tl-ok amp-ok) 
supply checks (DC-fuse xformer-leads xformer rectifier-leads rectifier 
Cl-ok (12v ok)) 

motor checks ((12v on motor) motor-nmning drivebelt idler 
pinchwheel pressure-pads all-ok) 
no-sound action (plug-in switch-on tum-vol-up replace-fuse 
repair-lead (try supply fault)) 

no-play action (insert-cassette rewind switch-to-play (try motor fault) 
(try amplifier fault)) 

amplifier action (repair-leads new-speaker (try supply fault) 
replace-Tl (try head fault)) 

supply action (replace-fuse repair-leads new-xformer repair-leads 
new-rectifier replace-Cl (try amplifier fault)) 
motor action ((try supply fault) new-motor new-belt new-idler 
new-pinchwheel new-pads (try amplifier fault)) 


Укажем для неспециалистов, что в программе 6.1 используются 
следующие обозначения: 

xformer — трансформатор; 

С — конденсатор; 

Т — транзистор; 

leads — провода или соединения на печатных платах. 

Отношение faults включает все возможные типы неисправно¬ 
стей, в то время как отношение checks описывает различные про¬ 
цедуры контроля (тестирования), применяющиеся для установле¬ 
ния причин возникновения этих неисправностей. Пользователю 
после того, как он информирует систему о неисправности, будет 
рекомендовано применить одну из этих процедур. Кроме того, 
процедуре тестирования соответствует специальное действие, ко¬ 
торое пользователь должен выполнить для устранения неис¬ 
правности. 

Соответствующие друг другу неисправности, процедуры те¬ 
стирования и действия по устранению неисправности связываются 
с помощью отношения match, которое было использовано ранее 
для выбора упорядоченных пар из двух списков. В некоторых 
случаях действия по устранению неисправности заменяются 
указанием ввести новый тип неисправности для того, чтобы по¬ 
лучить больше информации о причине неисправности. Эго сви¬ 
детельствует о том, что система исчерпала свои знания о перво- 
ночально введенной неисправности. 

В списках процедур контроля сначала идут элементарные 
процедуры, такие, как проверка, вставлена ли вилка в штеп¬ 
сель и включено ли устройство, но в дальнейшем процедуры 
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становятся более технически сложными. Для того чтобы начать 
работать с программой, пользователю необходимо использовать 
в запросе отношение check. После этого система попросит его 
ввести тип неисправности. Затем необходимо будет провести 
ряд предлагаемых системой процедур тестирования и сообщить 
системе их результат в виде ответа yes/no. В случае положитель¬ 
ного ответа система считает, что все в порядке и не рекомендует 
осуществлять никаких действий; в случае отрицательного ответа 
пользователю сообщается, что следует предпринять. Если ни 
одна из связанных с неисправностью процедур тестирования не 
позволяет выявить причину неисправности, пользователю обычно 
предлагается выполнить еще один ряд процедур тестирования. 
Покажем, как может быть обнаружена причина простейшей 
неисправности: 

all (х: check х) 

[определить все (х: проверка х) ] 
fault X ? ans no-sound 
[неисправность х ? ответ нет-звука 1 
plugged-in ? у 

[вставлена-ли-вилка-в-штепсель ? да] 
switched-on ? у 
[включено-ли-устройство ? да] 
volume-up ? по 
[включен-ли-звук ? нет] 
turn-vol-up 
[включить-звук ] 

No (more) answers 
[Ответов (больше) нет] 

Следующий протокол работы программы иллюстрирует тот 
случай, когда основные процедуры тестирования не позволяют 
обнаружить причину неисправности и пользователям рекомен¬ 
дуется использовать ряд процедур, относящихся к другому типу 
неисправности: 

all (х: check х) 

[определить все (х: проверка х) ] 
fault X ? ans no-sound 
[неисправность X ? ответ нет-звука] 
plugged-in ? у 

[вставлена-ли-вилка-в-штепсель ? да] 
switched-on ? у 
[включено-ли-устройство ? да] 
volume-up ? у 
[включен-ли-звук ? да] 
та ins-fuse ? у 

[оболочка-фидера-в-порядке ? да] 
mains-lead ? у 
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[провода-фидера-в-порядке ? да] 
sound-ok ? no 
[звук-в-порядке ? нет] 

(try supply fault) 

[(проверьте работу источника питания)] 

No (more) answers 
[Ответов (больше) нет] 

После этого пользователь может продолжать работу с систе¬ 
мой таким образом: 
all (х: check х) 

[определить все (х: проверка х)] 
fault X ? ans supply 

[неисправность X ? ответ источник-питания ] 

DC-fuse ? у 

[предохранитель-постоянного-тока-в-порядке? да 1 
xformer-leads ? у 

[провода-трансформатора-в-порядке ? да] 
xformer ? у 

[трансформатор-в-порядке ? да ] 
rectifier-leads ? у 

[соединения-выпрямителя-в-порядке ? да] 
rectifier ? по 

[выпрямитель-в-порядке ? нет] 
new-rectifier 
[заменить-выпрямитель ] 

No (more) answers 
[Ответов (больше) нет] 

Элементарные процедуры тестирования рассчитаны на доста¬ 
точно поверхностно знакомых с предметной областью пользовате¬ 
лей, а не на умудренных опытом специалистов. Естественно, что 
специалисты хотели бы начинать работать с системой только после 
того, как простейшие процедуры тестирования не дали результата. 
Им хотелось бы вводить в систему знакомые понятия, такие, как 
источник питания, усилитель и т. п., и получать в ответ данные о 
причине неисправности, относящиеся к конкретным элементам 
устройства. Приведенный ниже пример дает возможность устано¬ 
вить, что неисправна емкость С1 источника питания: 
all (х: check х) 

[определить все (х: проверка х) ] 
fault X ? ans supply 

[неисправность X? ответ источник питания] 

DC-fuse ? у 

[предохранитель в порядке ? да] 
xformer-leads ? у 

[провода трансформатора в порядке? да] 
xformer ? у 
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[трансформатор в порядке ? да ] 
rectifier-leads ? у 

[соединения выпрямителя в порядке ? даі 
rectifier ? у 

[выпрямитель в порядке ? даі 
Cl-ok ? no 

[емкость Cl в порядке ? нет] 
replace Cl 
[заменить СИ 
No (more) answers 
[Ответов (больше) нет 1 

Напомним, что положительный ответ означает, что тестирова¬ 
ние данного элемента проведено и никаких отклонений в его 
поведении не обнаружено. Вопрос системы Cl-ok ? предполагает, 
что специалисты либо сразу на основании данных уже проведенных 
процедур тестирования готовы дать ответ о работе емкости С1, 
либо им потребуетвя какой-нибудь специальный тест для С1. 
В принципе нет достаточных оснований для того, чтобы не давать 
более полной информации пользователям-неспециалистам. Напри¬ 
мер, для каждого элемента может быть предусмотрено специальное 
отношение action, описывающее процедуры тестирования, позво¬ 
ляющие установить, является ли данный элемент причиной 
неудовлетворительной работы устройства. 

Упражнение 6.1 

Покажите, как можно использовать экспертную систему для 
обнаружения неисправности маховика механизма воспроизведе¬ 
ния. Причем учтите, что неспециалисты (а) и специалисты (б) 
будут взаимодействовать с системой по-разному. 

Ниже показано, как можно расширить систему, обеспечив 
пользователей более детальной информацией для поиска неисправ¬ 
ностей 


Программа 8.2 

faults (no-sound no-play amplifier supply motor transistor gain) 
amplifier action (repair-leads new-speaker (try supply fault) (try 
transistor fault) (try head fault)) 
transistor checks (tested-junctions gain-ok) 
gain checks (tested-gain amplifier-ok) 

transistor action ((If NPF type connect ohmmeter pos tob : resistance 
toe and to e should be low. Reserve leads: resistance should be high. 
Reverse polarities for PNP type.) (Try gain fault)) 
gain action ((if NPN type connect ohmmeter between c and e: 
resistance should be high. Connect 4K7 between c and b: resistance 
should fall. Reverse polarities for PNP type) (Try amp-circuit fault)) 

Выше вопрос 


T1 ok ? 
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предусматривал, что пользователь обладает знаниями о транзис¬ 
торах и может контролировать их работу. Если же таких знаний 
пользователь не имеет, то система должна быть готова предоста¬ 
вить их ему. Слова transistor (транзистор) и gain (коэффициент 
усиления) должны быть добавлены к списку неисправностей, а 
слова try transistor fault (проверьте работу транзистора) должны 
появиться в предложении о Действиях в случае неисправности 
усилителя вместо слов replace Т1 (заменить Т1). 

После элементарных типов неисправностей в списке стоят 
более технически сложные дефекты. Им соответствуют специальные 
процедуры тестирования, ориентированные на проверку конкрет¬ 
ных элементов устройства. Поэтому для того чтобы понимать 
смысл выполняемых операций, необходимы знания в области 
электроники. 

Экспертные системы, подобные только что описанной, могут 
использоваться в качестве обучающих пакетов, а также для поиска 
неисправностей в различных устройствах. Информация о том, как 
проводить тестирование транзисторов, специалистам не нужна, им 
необходимо только знать, какой именно транзистор или группа 
транзисторов являются причиной неисправности. Начинающим 
электронщикам информация о том, как тестировать транзистор, 
понадобится только первые несколько раз; в дальнейшем никаких 
подсказок им не потребуется. 

Еще раз отметим, что систему можно использовать либо как 
пакет для обучения основам обслуживания электронных устройств, 
либо как советчик для опытных специалистов, которые эксплуати¬ 
руют незнакомое оборудование. В каждом из этих двух случаев, 
после того как люди приобретут необходимые навыки, система 
уже не понадобится. 

Возможности системы могут быть расширены с Помощью введе¬ 
ния в нее знаний о новых неисправностях и необходимых для их 
устранения действиях. Эти знания передаются системе экспертами. 
В результате знания экспертов становятся доступными менее ква¬ 
лифицированным специалистам. Ниже приведено несколько отно¬ 
шений, использование которых позволяет системе получить инфор¬ 
мацию о новых неисправностях, процедурах тестирования и дей¬ 
ствиях по устранению этих неисправностей. 

Программа 6.3 

new-fault X if 

(X new-fault) is-told and 
faults Y and 
not X ON Y and 
(faults Y) delete and 
APPEND (Y(X)Z) and 
(faults Z) add and 
new-checks X and 
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new-checks X if 

(Y what tests aie needed) is-told and 
(X checks Y) add and 
new-action X and 

/ 

new-action X if 

(Y what action is taken) is-told and 
(X action Y) add and 

/ 

Информация о процедурах тестирования и необходимых дей¬ 
ствиях по устранению неисправностей вводится в форме списков. 
Каждый элемент списка представляет собой либо два связанных 
дефисом слова, либо последовательность слов, заключенную в 
скобки. Использовать и дефис, и скобки для определения одного 
элемента списка запрещается. Покажем теперь, как можно ввести 
в систему информацию о новой неисправности-искажении (distor¬ 
tion): 

all (х: new-fault х) 

[определить все (х: новая-неисправность х)1 

X new fault ? ans distortion 

[X новая неисправность ? ответ искажение] 

X what tests are needed ? ans (motor-speed (Vcc = 12v) motor 
(replay head tight) ( replay head aligned) (replay head ok) ampli¬ 
fier-bias (speaker cone not torn)) 

[X какие процедуры тестирования нужны ? ответ (скорость- 
электродвигателя (напряжение = 12 В) электродвигатель 
(плотно прилегает головка воспроизведения) (выравнена голов¬ 
ка воспроизведения) (головка воспроизведения в порядке) 
напряжение смещения усилителя (не прорван диффузор громко¬ 
говорителя)) ] 

X what action is taken ? ans (adjust-VRl (try supplu fault) 
replace-motor tighten-head align-head replace-head adjust-VR5 
replace-speaker 

[X какие действия по устранению неисправностей необходимо 
предпринять? ответ (отрегулировать- VR1 (проверить источник 
питания) заменить-электродвигатель прижать-головку выров- 
нять-головку заменить-головку отрегулировать- VR5 заменить- 
громкоговоритель) ] 

Если теперь вывести на экран дисплея текст программы, то 
можно будет убедиться в том, что, во-первых, в списке неисправ¬ 
ностей появилось слово distortion (искажение) и, во-вторых, в 
программу добавлено два новых предложения для определения при¬ 
чин искажений и их устранения. Если возникнет необходимость, 
то с помощью описанной выше процедуры можно построить закон¬ 
ченную систему. 
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Но все-таки первоначально в программу должны быть вклю¬ 
чены отношения match, check, fault, new-fault, new-checks, new- 
action и, по крайней мере, один элемент должен присутствовать 
в списке отношения faults. Если все это есть, то пользователи могут 
приступать к введению в систему новых типов неисправностей, 
относящихся к ним процедур тестирования и действий по их устра¬ 
нению. Таким образом, программа представляет собой оболочку, 
использование которой дает возможность пользователям создавать 
экспертные системы, ориентированные на конкретную предметную 
область. 

Имена отношений faults и cheeks удобны для систем, предназна¬ 
ченных для поиска неисправностей, но, естественно, эти имена 
могут быть изменены по желанию пользователей. Независимо от 
выбранных имен отношений основной принцип построения экс¬ 
пертных систем остается неизменным. 

Упражнение 6.2 

Используйте приведенные выше отношения для проектирования 
экспертной системы, предназначенной для поиска неисправностей, 
либо в любой известной Вам технической системе — например, 
такой, как центральное отопление, освещение, либо в устройстве 
типа радиоприемника, телевизора, автомобиля и т. п. 

Упражнение 6.3 

Измените оболочку таким образом, чтобы она оказалась при¬ 
годной для генерации экспертных систем, не связанных с поиском 
неисправностей. Попробуйте построить экспертную систему для 
идентификации объектов, относящихся к различным типам, напри¬ 
мер, для произведений живописи (учитывая данные о стиле, ис¬ 
пользуемых материалах и т. п.), растений (здесь можно принять 
во внимание высоту, цвет, характер произрастания и т. п.) или 
для предметов любой другой хорошо знакомой Вам области. 


8.1. СПЕЦИАЛИЗИРОВАННАЯ СИСТЕМА 

Многие операции, выполняемые в процессе серийного произ¬ 
водства продукции, аналогичны операциям, осуществляемым при 
поиске неисправностей оборудования. Так, например, для контро¬ 
ля за процессом производства и для обеспечения качества продук¬ 
ции обычно используются заранее подготовленные тестовые 
процедуры. Во многих случаях процесс производства целесооб¬ 
разно разбить на отдельные шаги и представлять в виде специаль¬ 
ной схемы. Эту схему в дальнейшем можно использовать совместно 
со справочником, содержащим более подробно сведения о харак¬ 
тере производства. Вся схема полностью должна находиться в 
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распоряжении всех подразде¬ 
лений, занятых в производ¬ 
стве. Кроме того, каждое 
подразделение должно распо¬ 
лагать исчерпывающими зна¬ 
ниями о той части производ¬ 
ства, в которой она занята. 

На рис. 6.1 приведена 
часть такой схемы для опи¬ 
санной в предыдущем разделе 
экспертной системы. Те ча¬ 
сти схемы, которые отсылают 
к процедурам, проверяющим, 
вставлена ли вилка в штеп¬ 
сель, включено ли устройство 
и т. п., содержат почти столь¬ 
ко же информации, сколько 
и программа. Но в части схе¬ 
мы, относящейся к после¬ 
дующим более сложным про¬ 
цедурам, указываются только 
названия, характеризующие 
тип выполняемой процедуры 
тестирования, и связь ее с Рис - 6Л - Сзсема поиска неисправностей 
другими элементами схемы. 

Экспертная система может быть ориентирована не только на 
поиск причин неисправностей, но также и на создание и выдачу 
в удобной пользователю форме схемы всего процесса поиска. Это 
позволяет пользователю в случае необходимости пропускать часть 
процедур контроля и сразу переходить к той последователь¬ 
ности действий, которая, с его точки зрения, быстрее приведет 
к успеху. 

На рис. 6.2 приведена часть более сложной схемы, на которой 
изображены различные этапы производства печатных плат. Совер¬ 
шенно не обязательно знать в деталях, как выполняются разные 
операции в процессе производства высококачественных печатных 
плат и насколько точными являются используемые типы и стандар¬ 
ты. Не беспокойтесь, если некоторые из процедур, упомянутых 
на рис. 6.2, окажутся Вам незнакомыми. Предполагается разра¬ 
ботать две независимые экспертные системы для производства 
печатных плат. Первая, обучающая, предназначена для описания 
процессов обработки, используемых в производстве; вторая будет 
представлять собой указатель к справочнику о производстве печат¬ 
ных плат и, кроме того, с ее помощью можно получить информацию 
о том, какие процессы выполняются на разных этапах производ¬ 
ства. 

В принципе может быть создана и третья экспертная система, 
в состав которой будет входить вся информация из справочника, 
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Рис. 6.2. Схема процесса 
производства печатных плат 
(цифрами обозначены разные 
виды контроля: 

1 — контроль первого образца: 

2 — операторский контроль: 
8 — обеспечение качества) 


но дело в том, что персональная микроЭВМ не обладает оператив¬ 
ной памятью достаточного объема для работы с программами 
такого размера. Все-таки некоторые рассматриваемые отношения 
дадут пользователям представление об экспертных системах 
большого размера. 

Читатель, незнакомый с процессом производства печатных 
плат, после разбора следующего далее материала должен быть 
в состоянии построить экспертную систему для хорошо известной 
ему предметной области. 

Обучающая экспертная система состоит из двух независимых 
программ: первая (программа 6.4) содержит данные об общих по¬ 
ложениях производства печатных плат, вторая (программа 6.5) 
включает более детальную информацию. Текст первой программы 
следует ниже. 
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Программа 6.4 

explain X if 

(Y Do you want general or detailed information) is-told and 
Y infoX 

general info X if 

(Y Select Design QA (Quality Assurance) Flow-chart Route-card) 
is-told and Y data X 

detailed info (Kill this program and load PCB2) if 

(Finished with this program) is-told and 

/ 

Design data (Design involves the preparation of artwork several times 
the final board size on drafting film. Computer Aided Design may be 
used to produce digitized layout of tracks, holes and pads, which is 
stored on tape or disk.) 

QA data (Quality Assurance guarantees that boards are made to 
correct standards. PCBs do not pass a stage of manufacture until 
samples are taken and tests performed. Samples and test results are 
stored and must be available to the Standards Authority on demand)) 
Flow-chart data (The flow chart details each stage in the manufacturing 
process and the QA tests which are needed to meet the relevant 
standards)) 

Route-card data (The route-card contains similar information to the 
flow-chart and accompanies the job through all processing stages to 
show which processes are complete and which remain to be carried 
out.)) 

Программа является самодокументирующей. Она довольно ко¬ 
ротка, но при желании в отношение data могут быть включены 
дополнительные утверждения, содержащие гораздо больше инфор¬ 
мации. Если информации, относящейся к одному объекту, так мно¬ 
го, что она не помещается на листе, то можно использовать два 
предложения и более с идентичными заголовками. 

Аналогичная организация отношений может быть, конечно, 
использована и в любой другой предметной области. Ниже при¬ 
ведена программа 6.5, имеющая в общем такую же организацию 
и те же самые имена отношений, что и предыдущая программа. 
Но в этой программе больше предложений, содержащих подробную 
информацию о различных аспектах процесса производства печат¬ 
ных плат. 


П р о f р а 


м а 6.5 


explain X if 

(Y do you want information on PTH of conventional boards) 
is-told and 
7 CLS and 
Y infoX 
PTH info X if 

(Select machining electroless electroplate resist primary-image 
strip-resist strip-Snpb gold-plate etch reflow legend-print QA) is-told 
and 
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7 CLS and 

Y data X 

conventional info X if 

(Y select from general image roller-coat drilling) is-told and 
7 CLSand 

Y data X 

machining data (Machining includes drilling, sawing, routing, 
punching and profile cutting on guillotines. Tooling holes are 
punched or drilled for accurate registration.) 
electroless data (Chemicals are used to deposit a thin film of copper on 
the boards and in the plated-through holes to make them conductive 
for subsequent plating.) 

electroplating data (Copper is deposited by electroplating the entire 
surface of the board. This is followed by tin-lead (Snpb) plating of the 
eventual conducting areas. Typical depth: Copper 20, Snpb 10 
microns.) 

resist data (Resists are materials or solutions which protect parts of 
the board from some processes. Snpb resists the acids used for 
etching. Solder resist is applied by silk screen or dry film to parts of 
the board which will not be soldered.) 
primary-image data (The conductor pattern is formed by laminating 
dry film onto the board followed by exposure to UV. Silk screen 
printing with acid-proof inks is also used.) 
strip-resist data (The dry film is stripped from those areas where 
copper is to be etched away. Those areas will have been softened by 
exposure to UV.) 

strip-Snpb data (A selective chemical stripper is used to remove 
off connects those areas together.) 
masked for this purpose.) 

gold-plate data (Gold is plated to a depth of 2.5-5 microns on areas 
such as edge connectors. A plating bar which is later cut 
off connects those areas together.) 
etch data (The copper is etched from areas not covered by resist in 
solutions such as femc-chloride or cupric-chloride.) 
reflow data (Tin-lead surfaces are brought to the melting point in hot 
oil, vapour or by means of infra-red to enable them to be soldered.) 
legend-print data (Code numbers, circuit symbols etc. are silk-screen 
printed in solvent and solder-resistant inks.) 

QA data (All the previous operations are subject to strict quality 
control. Sampling and testing is followed by QA release and a 
Certificate of Conformity to the agreed standard.) 
general data (Conventional boards are those which do not have plated 
through holes (PTH). Tracks on double-sided boards are connected 
through to the second side by means of studs or soldered links.) 
image data (Conventional (print and etch) boards are not drilled until 
after the primary imaging stage. Conductor patterns are formed by 
laminating dry film, exposure to UV and developing. A stencil of the 
pattern is made from original photographs ) 

roller-coat data (Flux covered boards pass through a roller-coating 
machine which covers exposed surfaces with Snpb to a depth of 
1-2 microns.) 

drilling data (For hole sizes of 0.8 mm and above, stacks of up to 5 
boards are pinned together and drilled by sight, template or NC 
machine. Smaller holes are drilled singly.) 
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Приведенная выше программа довольно велика для версии 
микроПролог ЭВМ Spectrum. Поэтому желательно не загружать 
модуль TOLD до тех пор, пока вся программа не введена, а после 
ввода и перед выполнением убрать модуль PROGRAM. Типичный 
протокол работы программы дается ниже: 
all (х: explain х) 

[определить все (х: объяснить х) ] 

X Do you want information on PTH or conventional boards ? 
ans PTH 

[X Вы хотите получить информацию о методе, использующем 
сквозные металлизированные отверстия, или о стандартном 
методе? Ответ метод, использующий стандартные металлизиро¬ 
ванные отверстия ] 

X Select form machining electroless electroplate resist primary- 
image strip-resist gold-plate etch reflow legend-print QA ? ans 
legend-print 

[X Выберите один из этапов: механическая-обработка химиче- 
ская-активация гальванопокрытие нанесение-резиста перенесе¬ 
ние рисунка межсоединений на плату снятие-резиста нанесение- 
на-плату-условных-обозначений обеспечение-качества ? ответ 
нанесение-на-плату-условных-обозначений ] 

Code-number, circuit symbols... 

[Кодовые числа, символические обозначения схем...] 

No (more) answers 
[Ответов (больше) нет 1. 

Терм 7 CLS используется в трех первых предложениях програм¬ 
мы 6.5 для того, чтобы очистить экран дисплея и таким образом 
подготовить его для вывода новой информации. Цифра 7 позволит 
установить белый цвет экрана; пользователь, естественно, может 
выбрать любой другой цвет, воспользовавшись для этого соответ¬ 
ствующим числом. 

Упражнение 6.4 

Используйте программу 6.5 для получения информации; 

а) о травлении; б) о нанесении покрытия с помощью валика. 


6.2. СПОСОБНОСТЬ К ОБУЧЕНИЮ 

Мощь экспертной системы значительно возрастет, если в про¬ 
цессе работы она будет обладать способностью к обучению, т. е. 
к усвоению новых фактов и методов их обработки. Достичь этого 
можно различными способами. Так, система может проводить 
статистическую обработку данных и формировать новые правила 
из таким образом получаемой информации. Кроме того, систему 
можно евязать с реальным миром с помощью специальных сенсор- 



ных устройств, которые позволят ей собирать данные об этом мире 
и на этой основе формировать правила. И, наконец, система может 
приобретать знания в результате опроса экспертов. В программе 
6.6 показано, как нужно модифицировать предыдущую программу 
(6.5), чтобы она могла приобретать новые знания в процессе обще¬ 
ния g экспертами. 

Программа 6.6 


add-date X if 

add-heading Y and 
X ON Y and 
(X data Z) is-told and 
(X data Z) add 
add-topic X if 

(topic Y) delete and 
(new topic X) is-told and 
APPEND (Y(X)Z) and 
(topic Z) add and 
/ 

add-heading X if 

add-topic Y and 

(headings (X) for topic Y) is-told and 
(Y heading (X)) add and 

/ 

explain X if 

topic Y and 

(Z Select a topic from: Y) is-told and 
Z info X 
X info Y if 

X heading Z and 

(x Select heading from: Z) is-told and 
7 CLSand 
x data Y 

topic (PTH conventional) 

PTH heading (machining electroless electroplate resist primary-image 
strip-resist gold-plate etch reflow legend-print QA) 

conventional heading (general image roller-coat drilling) 
machining data (Machining includes...) etc. 

Во время обучения нет необходимости дополнять все предложе¬ 
ния data. Например, первое предложение (о машинной обработке), 
относящееся к методу, использующему сквозные металлизирован¬ 
ные отверстия и первое предложение (об общих принципах), отно¬ 
сящиеся к стандартному методу обработки, могут быть составлены 
без изменения. В новом варианте программы пользователю, раб- 
тающему с отношениями explain и info, предстоит осуществлять 
выбор не из фиксированного списка, а из списка с переменным 
числом членов. Причем длина и содержимое этого Списка опреде¬ 
ляются информацией, получаемой от эксперта. 

Таким образом, программа предназначена для выполнения двух 
функций: во-первых, она является оболочкой, пользуясь которой 
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эксперты могут создавать экспертные системы, и, во-вторых, она 
дает возможность работать с готовыми экспертными системами. 
Имена основных категорий рассматриваемой предметной области 
хранятся в отношении topic, а понятия, описывающие категории,— 
в отношении heading. И, наконец, подробная информация по каж¬ 
дому из понятий содержится в различных предложениях отноше¬ 
ния data. Все только что упомянутые отношения — topic, heading 
и data — могут быть дополнены в процессе диалога с экспертом. 
Чтобы не усложнять программу, в нее не включены средства для 
модификации и удаления предложений отношения data; в случае 
необходимости такие средства могут быть легко введены. 

Предположим теперь, что необходимо добавить в программу 
информацию о новом методе производства печатных плат — о 
поверхностном монтаже. Покажем, как это может быть сделано: 

all (х: add-data х) 

[определить все (х: добавить-данные х) ] 

new topic X ? ans SMD 

[новая категория X ? ответ SMD] 

headings (X) for SMD ? just (meaning methods advantages) 
[понятия (X) для SMD ? последний ответ (смысл методы достоин¬ 
ства) ] 

meaning data X ? just (Surface mounting of devices (SMD) is 
a method 

[смысл данные X ? последний ответ (поверхностный монтаж 

устройств (SMD) — это метод ] 

of fitting ICS and other components of PCB 

[сборки интегральных схем и других компонентов печатных 

плат, осуществляемый без] 

without the need for drilling holes for the leads.) 

[использования отверстий для соединений)] 

meaning 

[смысл ] 

methods data X ? just (Components are temporarily held in place 
[методы данные ? последний ответ (компоненты временно удер¬ 
живаются на нужных местах] 

with odhesive and then soldered by means of hot vapours 
[клейким составом, а затем припаиваются с помощью горячих 
испарений ] 

which щеИ solder cream smeared around the joints.) 
[которые расплавляют припой, нанесенный на места соединений)] 
methods 
[методы ] 

advantages data X ? just (SMDs provide higher density circuits 
[достоинства данные X ? последний ответ (метод поверхностного 
монтажа обеспечивает более высокую плотность размещения 
элементов] 

are more reliable, require no drilling and 


Дж. 
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[является более надежным, не требует отверстий для соедине¬ 
ний и] 

are cheaper to fit than other types.) 

[дешевле аналогичных методов) ] 

advantages 

[достоинства ] 

No (more) answers 
[Ответов (больше) нет] 

Если после этого рассматривать текст программы, то окажется, 
что отношение topic теперь имеет вид 
topic (PTH conventional SMD), 
а в отношении heading появилось новое утверждение 
SMD heading (meaning methods advantages) 

и, кроме того, к отношению data добавились три утверждения, 
каждое из которых характеризует новый элемент отношения 
heading. 


6.3. ИСПОЛЬЗОВАНИЕ ЭКСПЕРТНЫХ СИСТЕМ 
ДЛЯ УПРАВЛЕНИЯ ПРОЦЕССАМИ 

Хотелось бы надеяться, что примеры предыдущего раздела 
дадут читателям хотя бы смутное представление о том, какие 
операции используются в процессе производства печатных плат. 
На рис. 6.2 изображена схема, показывающая не только этапы 
производства печатных плат, но также и типы проверок, приме¬ 
няемых на каждом этапе. На самом деле схема должна быть более 
сложной и включать еще ряд этапов, но для иллюстрации основной 
идеи автором были выбраны только несколько операций. Важно, 
что эта схема является прототипом для широкого класса схем, 
описывающих любые строго последовательные процессы, в которых 
каждая операция может быть начата только после того, как все 
предшествующие этапы выполнены, и правильность их выполне¬ 
ния подтверждена. Что касается рис. 6.2, то на нем не нашел отра¬ 
жения ряд этапов: среди них этап подготовки к отправке, который 
включает хранение, упаковку и подготовку счетов, а также такой 
не всегда обязательный этап, как нанесение золотого покрытия. 
Ниже приведена программа 6.7, которая является, по существу, 
маршрутной картой работ по изготовлению печатных плат. Эта 
программа выполняет следующие функции: 

инициирует новые работы по указанию отдела сбыта; 
хранит последовательность выполненных операций и процедур 
контроля, проведенных для каждой отдельной работы; 

управляет ходом работ, разрешая переход к следующей стадии 
только в том случае, если все необходимые проверки выполнены; 
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готовит отчеты, содержащие данные о ходе выполнения данной 
работы или всех работ в целом. 

Отношение new-job используется для того, чтобы дополнить 
список работ еще одной работой, и для того, чтобы включить 
предложение 

X stage in 

показывающее, что новая работа уже прошла через ряд операций 
предварительного этапа in. К этим операциям относятся объявле¬ 
ние стандартов, которые должны соблюдаться, подготовка и про¬ 
верка фотошаблонов, подготовка и проверка программ станков с 
ЧПУ, предназначенных для сверления отверстий, и, возможно, 
подготовка и тестирование прототипов. Для того чтобы все это 
реализовать на микроЭВМ, нужна программа, аналогичная только 
что приведенной; для большой ЭВМ отдельной программы может 
и не понадобиться — только что описанные процедуры можно 
включить в текст выше приведенной программы. Для того чтобы 
иметь дело с короткой программой, допустим, что операции пред¬ 
варительного этапа in были выполнены, а заключительный процесс 
cut * просто не рассматривается. В этом случае удается сконцен¬ 
трировать внимание непосредственно на процессе управления 
производством печатных плат. 

Программа 6.7 

(X Y) match ((X Z) (Y *)) 

(X Y) match (( Z х) (у z)) if 
(X Y) match (xz) 
new-job if 

(job y) delete and 

(job number X) is-told and 

APPEND (Y(X)Z) and 

(job) Z add and 

(X stage in) add and 

/ 

job (12 3) 

process (cut-blanks tooling-holes drill electroless primary-image 
electroplate strip-resist etch reflow solder-resist legend-print 
final-inspection QA-release out) 

standard (in opl op2 op3 op4 opS op6 QA1 QA2 QA3 op7 op8 QA4 
QA5 out) 

X awaits Y if 

process Z and 
X stage x and 
APPEND (y (x IY) Z) 

X awaits (cut-blanks Y) if 
X stage in and 


* К этому процессу относятся процедуры, связанные с подготовкой к от¬ 
правке (хранение, упаковка и т. д.). — Прим. ред. 
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X next Y if 

(job X operation Y inspection Z) is told and 

X awaits (Y | x) and 

standard у and 

process z and 

(Y Z) match (x y) and 

(Z stage XI) delete and 

(X stage Y) add and 

/ 

1 stage cut-blanks 

2 stage electroplate 

3 stage tooling-holes 

Отношение standard содержит список стандартных тестов, 
соответствующих каждой стадии производства. На некоторых 
стадиях можно использовать несколько тестов; например, стадия 
травления требует проверки первого образца, проверок со стороны 
оператора и проверок по обеспечению качества. Проверка первого 
образца означает, что одна плата или небольшое число плат 
подвергается обработке только для того, чтобы путем проверок 
определить, являются ли изменения, внесенные в механизм дан¬ 
ного процесса обработки и в используемые материалы, необходи¬ 
мыми. Эта предосторожность позволяет устранить дорогостоящие 
ошибки при серийном производстве плат. Под операторной про¬ 
веркой подразумевается визуальный контроль некоторых или всех 
плат, который позволяет обнаружить и устранить очевидные 
дефекты того или иного процесса — например, травления или 
нанесения покрытия. Наиболее жесткий тип проверки — это 
обеспечение качества (QA). Этот тип включает операции, которые 
в некоторых случаях могут даже разрушать образцы. К ним отно¬ 
сятся проверка глубины покрытия, сцепления соединений с под¬ 
ложкой, толщины покрытия отверстий и многое другое. Кроме 
того, обеспечение качества предусматривает использование раз¬ 
личных установленных стандартов и может включать подготовку, 
кодирование и охранение информации о микроучастках платы, 
которую необходимо сделать доступной для контроля со стороны 
пользователей или института стандартов. 

Традиционно различные этапы производства указываются в 
маршрутной карте, и но мере их прохождения оператор или инспек¬ 
тор по обеспечению качества, в случае если не все в порядке, 
делает пометку. Это дает возможность запретить переход к очеред¬ 
ному этапу, если не все предыдущие этапы выполнены правильно. 
К несчастью, никто не может гарантировать, что все будет идти 
точно по плану. Платы, не удовлетворяющие стандартам, могут 
миновать некоторые этапы из-за невнимательности персонала. 
Но вероятность того, что дефектные платы покинут пределы завода, 
достаточно мала, поскольку они обязательно будут подвергнуты 
заключительному глобальному контролю. Тем не менее допущен¬ 
ные ошибки могут привести к задержкам выпуска продукции. 
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Перед гем, как разобраться, в чем может быть полезна программа, 
рассмотрим, как он работает. 

Сначала определим последний этап, выполненный в ходе ра¬ 
боты 1. 

all (х: 1 stage х) 

[определить вве (х: 1 этап х)1 
cut-blanks 

[вырезание заготовок! 

No (more) answers 
[Ответов (больше) нет] 

Полученный ответ свидетельствует о том, что этап, связанный 
с подготовкой заготовок для плат, выполнен, т. е. в результате 
из листа базового материала вырезаны заготовки нужного размера. 
Для определения процессов, которые необходимо выполнить для 
завершения работы 3, используем следующий запрос: 
all (х: 3 awaits) 

[определить все (х: 3 ожидает х) 

(drill electroless primary-image ...) 

[сверление химическая-активапия-поверхности нанесение-ри- 
сунка-межсоединений-на-плату и т. д. ] 

No (more) answers 
Ответов (больше) нет 

Предположим теперь, что оператор хочет выполнить следующий 
этап работы 2. Анализ показывает, что последним в ходе работы 
2 был этап, связанный с гальванопокрытием, а следующим по 
порядку является этап снятия резиста. Но для того, чтобы эта 
операция могла быть проведена, выполненная к этому моменту 
работа должна быть проверена с помощью контролирующей про¬ 
цедуры орб. То, что именно процедура орб должна быть проведена 
перед выполнением этапа strip-resist, можно установить с помощью 
отношения next, ставящего в соответствие последнему выполнен¬ 
ному этапу элемент из списка standard. Для того чтобы перейти 
к выполнению очередного этапа, оператору необходимо правильно 
идентифицировать, во-первых, этот этап и, во-вторых, процедуру 
контроля, соответствующую этапу, который был выполнен послед¬ 
ним. Следующий протокол демонстрирует две неудачные и одну 
удачную попытки продолжить работу 2: 

all (х: 2 next х) 

[определить все (х: 2 следующий этап х)1 
job 2 operation X inspection Y ? ans etch орб 
[работа 2 этап X проверка Y ? Ответ травление опб] 
job 2 operation X inspection Y ? ans strip-resist op5 
[работа 2 этап X проверка Y ? Ответ снятие-резиста оп51 
job 2 operation X inspection Y ? ans stip-resist орб 
[работа 2 этап X проверка Y ? Ответ снятие-резиста опб] 
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strip-resist 
[снятие резиста] 

No (more) answers 
[Ответов (больше) нет] 

Первая попытка привела к неудаче, поскольку платы не должны 
подвергаться травлению до тех пор, пока процедура снятия резиста 
не проведена и не подтверждена правильность ее выполнения. 
Вторая попытка неудачна из-за того, что в своем ответе о последней 
процедуре контроля оператор указал оп5, в то время как необхо¬ 
димо проверять правильность нанесения гальванопокрытия с 
помощью процедуры опб. 

На практике названия (или коды), содержащиеся в отношении 
standard, могут быть значительно более сложными. В этом случае 
они могут использоваться в качестве указателей к тестам, кото¬ 
рые должны быть проведены на данном этапе. Этот вариант доста¬ 
точно легко реализовать. Коды opl, QA1 и т. д. были сознательно 
упрощены для того, чтобы сделать работу программы понятной 
практически каждому. Важнее обеспечить программе возможность 
печатать коды на маршрутной карте или на магнитной полосе, 
прикрепленной к карте. Это позволит с помощью специальной 
аппаратуры анализировать их и предотвращать переход к очеред¬ 
ному этапу до тех пор, пока все предыдущие этапы не прошли 
проверки. Такая аппаратура действует так же, как денежные 
автоматы в банках, или другие устройства подобного рода. 

В целом экспертная система будет не только помогать следить 
за ходом каждой работы, но и контролировать ее, предотвращая 
переход к тем этапам, которые по тем или иным причинам выпол¬ 
нять преждевременно. 

Отметим, что предназначенные для эксплуатации в промышлен¬ 
ности системы должны быть значительно сложнее той системы, 
которая была только что описана. Дело в том, что в ней подробно 
рассматривался только один тип печатных плат — платы со сквоз¬ 
ными металлизированными отверстиями; кроме того, многие этапы 
процесса производства таких плат были опущены. На самом же 
деле существует довольно много различных типов печатных плат 
и в производстве плат каждого типа используются характерные 
для этого типа дополнительные операции. Также для разных типов 
плат существуют разные стандарты, которые часто определяются 
условиями эксплуатации плат. Все это можно учесть, введя не¬ 
сколько предложений, каждое из которых описывает определенный 
процесс обработки. Кроме того, с каждым таким предложением 
необходимо связать предложения, содержащие информацию о 
стандартах. В принципе реальные системы, кроме масштабов, 
мало чем отличаются от описанной в этой книге. Правда, их можно 
реализовать только на более мощных ЭВМ, чем домашние. 

В заключение покажем, как еще можно использовать эксперт¬ 
ную систему: 

214 



all (x: new-job x) 

(определить все (x: новая-работа x)] 
job number x ? ans 43 
[номер работы x ? ответ 43 ] 

43 

No (more) answers 
[Ответов (больше) нет] 

После этого предложение job будет иметь следующий вид: 

(1 2 3 43) 

и, кроме того, появится новое предложение 
43 stage in 

Теперь новая работа с номером 43 готова для выполнения 
этапа вырезания заготовок: 
all (х у: х next у) 

[определить все (х у: х следующий этап у)] 
job X operation Y inspection Z ? ans 43 cut-blanks in 
[работа X этап Y проверка Z ? ответ 43 вырезание-заготовок 
предварительный контроль ] 

43 cut-blanks 

[43 вырезание-заготовок ] 

No (more) answers 
[Ответов (больше) нет] 

Ответ 43 cut-blanks показывает, что работа 43 подготовлена 
для выполнения этапа вырезания заготовок. В более сложных 
системах, о которых было упомянуто выше, очередной этап будет 
реализован на машине только в случае, если ранее будет получен 
правильный код от оператора. Естественно, что работа машины, 
выполняющей операцию, должна быть согласована с работой 
устройства, которое, проверяя коды, принимает решение о допуске 
данной работы к операции. В нашем примере этот код должен пред¬ 
ставлять собой комбинацию номера работы и контрольного кода in. 
Таким образом, в общем случае с работой связывается код, соот¬ 
ветствующий номеру работы и коду последней контрольной 
проверки. 


Упражнение 6.5 

Используйте текст программы 6.7 для определения: 

а) текущего этапа каждой работы; 

б) этапов, которые будут проведены для завершения работы 2; 

в) процедур контроля, необходимых для каждого этапа обра¬ 
ботки; 

г) условий перехода работы 3 к следующему этапу. 
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Упражнение 6.6 

Как уже было отмечено, программа 6.7 может быть взята за 
основу при построении систем, контролирующих ход последова¬ 
тельных процессов. Возьмите любой такой процесс и попробуйте 
построить для него аналогичную систему. 


6.4. ИСПОЛЬЗОВАНИЕ ЭКСПЕРТНЫХ СИСТЕМ 
ПРИ ПРИНЯТИИ РЕШЕНИЙ 

В настоящее время наиболее мощными являются, по-видимому, 
экспертные системы, которые используются для принятия решений 
в достаточно узких областях. В коммерческих и финансовых 
службах экспертные системы, как еще раньше компьютеры, нашли 
применение быстрее, чем в промышленной сфере. Сейчас экспертные 
системы используются в банковском деле, страховании, торговых 
операциях и в системах автоматического управления канцелярской 
деятельностью. Но главной областью их применения остается 
моделирование финансов; в этом случае можно создать модель 
рынка для некоторых товаров (или одного товара) и проверить 
ее функционирование, изменяя внешние факторы, такие, как спрос, 
конкуренция, уровень сельскохозяйственного и промышленного 
производств разных стран и т. п. 

Эти системы могут играть важную роль в обучении представи¬ 
телей деловых кругов, так как любую ситуацию можно промодели¬ 
ровать и сопоставить решения, предложенные обучаемыми, с 
решениями, которые были либо в действительности приняты, 
либо получены экспертной системой, либо являются наиболее 
оптимальными в данных условиях. Такого рода системы можно 
также использовать для оценки торговых мероприятий компаний 
в случае небольших изменений ситуации в мире. Эффективность 
такого рода систем зависит, во-первых, от качества алгоритмов 
и правил, предложенных экспертом и, во-вторых, от способа, 
с помощью которого инженер знаний переходит от идей, высказан¬ 
ных экспертом, к их программной реализации. Наиболее мощными 
являются системы, которые обладают способностями к обучению, 
в чем-то аналогичными способностям человека. Следует отметить, 
что проектирование обучающих алгоримов — довольно сложная 
проблема; дело в том, что поведение системы не должно сильно 
меняться при небольших изменениях внешних условий, но в то же 
самое время система должна быть достаточно чувствительной к тем 
небольшим изменениям, которые могут предвещать смену тенден¬ 
ций на рынке. 

Прогнозы экспертов в основном базируются на знании того, 
что произошло в прошлом, и на способности интерпретировать 
исторические факты. Но иногда приносит пользу и интуиция 
экспертов, т. е. также знания, которые трудно выразить словами 
и тем более определить формально. Естественно, экспертные 
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системы не обладают интуицией, но проектировщик системы 
может, опираясь на те свои интуитивные догадки, которые при¬ 
несли успех в прошлом, построить систему так, чтобы можно было 
изменить ее поведение в случае возникновения новых озарений. 
В большинстве случаев экспертная система не выносит окончатель¬ 
ного решения, а дает только свои рекомендации тому человеку, 
который отвечает за принятые решения. 

Ниже описывается экспертная система, предназначенная для 
предсказанных результатов матчей Английской футбольной лиги. 
Следует сразу сказать, что эта система не является непревзойден¬ 
ным оракулом — богатым сможет стать лишь тот, кто существенно 
улучшит ее возможности *. Но все же она вполне пригодна для 
демонстрации приемов передачи информации от эксперта к системе. 
Преимущество этой системы заключается в том, что ее работу легко 
проверить либо по текущим результатам, либо по результатам 
матчей предыдущих лет. Читатели, если пожелают, могут заменить 
выбранные автором правила своими собственными. Но запомните, 
что любое нововведение должно пройти проверку на большом 
числе матчей и его можно будет ввести в систему только в случае, 
если оно действительно улучшает работу системы. Те, кто все-таки 
пойдет по этому пути, вероятно, сконструируют свои, отличные 
от предложенной автором экспертные системы. 

Сначала предположим, что удалось найти футбольного эксперта, 
способного предсказывать результаты матчей и согласившегося 
объяснить, как он это делает. Допустим, что эксперт начисляет 
команде очки на основании результатов проведенных ею игр. 
Правила начисления следующие. 

1. Команде дается два очка, если у нее побед больше, чем игр, 
проигранных и сведенных вничью. 

2. Команде дается одно очко, если у нее побед больше, чем 
поражений. 

3. Команде дается два очка, если она не проиграла ни одной 
игры. 

4. Команде дается одно очко, если она ни разу не сыграла 
вничью. 

5. Команде дается одно очко, если она забила больше мячей, 
чем пропустила. 

6. Команде дается два очка, если она забила мячей, по крайней 
мере, в 2 раза больше, чем пропустила. 

7. Команде дается два очка, если число ее побед, по крайней 
мере, в 2 раза превосходит число поражений. 

8. Команде гостей дается два дополнительных очка, если у нее 
побед больше, чем игр, проигранных и сведенных вничью. 

Сразу отметим, что для каждой команды все матчи разбиваются 
на два класса: сыгранные на своем поле и на чужом. Приведенные 


* Дело в том, что в Великобритании широко распространен футбольный 
тотализатор. — Прим. ред. 



правила относятся только к матчам одного класса. Для команд- 
гостей и команд-хозяев должен быть вычислен средний голевой 
баланс. Для команд-хозяев средний голевой баланс определяется 
частным от деления числа забитых мячей на количество сыгранных 
дома матчей и числа пропущенных мячей — на число сыгранных 
дома матчей. Аналогично определяется голевой баланс команд- 
гостей. Результаты округляются до ближайшего целого. При 
формировании прогноза матча определяются два числа. Одно 
равняется сумме среднего числа мячей, забиваемых командой 
хозяев, и среднего числа мячей, пропускаемых командой гостей; 
второе равняется сумме среднего числа мячей, забиваемых коман¬ 
дой гостей, и среднего числа мячей, пропускаемых командой 
хозяев. Первое добавляется к общему числу очков, полученных 
командой хозяев в результате применения правил 1—8, а второе 
добавляется к очкам, полученным командой гостей. В результате 
формируются два показателя: один — для хозяев, другой — для 
гостей, которые характеризуют их шансы во встрече друг с другом. 

Приведенный выше перечень правил может показаться доста¬ 
точно сложным и запутанным, но на самом деле эта информация 
довольно хорошо структурирована и в лучшую сторону отличается 
от данных, получаемых от экспертов в других областях знаний. 
Ниже приведена программная реализация только что описанной 
системы. В программе 6.8 не хранится информация о сыгранных 
матчах: эту информацию в обобщенном виде должен вводить 
показатель. 

Программа 6.8 

Qtot0 

(X Y) tot Z if 
Y tot x and 
SUM (X x Z) and 

/ 

game if 

form KILL and 

(home form (X) and away form (Y)) is-told and 
(h form X) add and 
(a form Y) add and 

/ 


X played Y if 

X form (Z x у | z) and 
SUM (у XI Y) and 

/ 

X ave (Y Z) if 

X form (x у z XI Yl) and 
X played Z1 and 
TIMES (xlZl XI) and 
SUM (xl 0.5 yl) and 
yl I NT Y and 
TIMES (zl ZIYI) and 
SUM (zl 0.5 X2) and 
X2 I NT Z and 
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X score Y if 

h ave (Z x) and 
a ave (y z) and 
SUM (Z z X) and 
SUM (x у Z) 

X plus 2 if 

X form (Y Z x j y) and 
SUM (Z x z) and 
x LESS Y 
X plus 1 if 

X form (Y Z x j y) and 
x LESS Y 
X plus 2 if 

X form (YZ0 x) 

X plus 1 if 

X form (Y 0 i Z) 

X plus 1 if 

X form (Y Z x у z) and 
z LESS у 
X plus 2 if 

X form (Y Z x у z) and 
TIMES (2 x XI) and 

XI LESS у 
X plus 2 if 

X form (Y Z x I y) and 
TIMES (2 xz) and 
z LESS Y 
a plus 2 if 

a form (X Y Z x) and 
SUM (Y Z y) and 
у LESS X 

Восемь утверждений отношения plus соответствуют восьми прави¬ 
лам начисления очков. Отношение tot используется для определе¬ 
ния общего числа очков, получаемых с помощью отношения plus; 
отношение played — для определения числа сыгранных матчей; 
аѵе — для определения среднего голевого баланса команды хозяев 
и команды гостей и, наконец, score — для предсказания, основан¬ 
ного на этих средних значениях счета матча. В отношении аѵе 
среднее значение округляется до ближайшего целого. Это делается 
с помощью добавления 0.5 (0,5) к полученному среднему и приме¬ 
нения встроенного отношения ЩТ, вычисляющего целую часть 
числа. Отношение game удаляет все существующие в данный 
момент утверждения отношения form и помещает в программу 
два новых утверждения в формате 
h form (w d 1 f а) 
a form (w d 1 f a) 

Данные w, d, 1, f, а для этих утверждений запрашиваются у 
пользователя; xv, d, 1 — число побед, ничьих и поражений соответ¬ 
ственно; f, а — число забитых и пропущенных мячей. Символ h 
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свидетельствует о том, что речь идет о команде хозяев, символ 
а — гостей. Таким образом, всегда программа работает с двумя 
утверждениями отношения form. 

Для того чтобы завершить программу, необходимо добавить 
к ней еще одно отношение result. С его помощью как раз и обеспе¬ 
чивается формирование прогноза на матч. 

X result (Y Z) if 

(X next) is-told and 
game and 

x isall (x: h plus x) and 
x tot у and 

z isall (z: a plus z) and 
z tot XI and 
Y1 score Z1 and 
SUM (y Y1 Y) and 
SUM (XI Z1 Z) 

Отношение result вызывает game для того, чтобы ввести данные 
о командах, проводит все необходимые вычисления с помощью 
отношений plus и score и обеспечивает выдачу прогноза в виде 
двух целых чисел, характеризующих шансы команд. Условие 
(X next) дает возможность пользователям печатать либо названия 
команд, либо порядковый номер матча. Если же в ответ на запрос 
X next ? пользователь ответит по, то программа завершит работу. 
Данные о командах хозяев и гостей размещаются при вводе в двух 
списках, следующих один за другим. Приведенный ниже протокол 
дает представление о том, как используется программа: 
all (х: result х) 

[определить все (х: результат-прогноза х)] 

X next ? ans 1 
[следующий ? ответ 1 ] 

home form (X) and away form(Y) ? ans (6 1 0 21 6) (2 2 3 9 11) 
[команда хозяев (X) и команда гостей (Y) ? ответ (6 1 0 21 6) 
(2 2 3 9 11)] 

(1 (15 2)) 

X next ? по 
[X следующий ? нет] 

No (more) answers 
[Ответов (больше) нет] 

Ответ (1 (15 2)) свидетельствует о том, что в игре под номером 1 
шансы хозяев оцениваются числом 15, а гостей — 2, т. е. эксперт¬ 
ная система в данном случае предсказывает уверенную победу 
хозяев поля. Если вы хотите убрать из ответа скобки, используйте 
следующий запрос: 

all (х у z: х result (у z)) 

В результате будет получен ответ: 1 15 2. 
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Как уже указывалось выше, при работе с системой можно 
предусмотреть использование в ответе названий играющих команд: 
all (х у: result у) 

[определить все (х у: х результат-прогноза у)] 

X next ? ans (Chelsea v Man IJtd) 

[X следующий ? ответ (Челси против Манчестер Юнайтед)] 
home form (X) and away form (Y) ? ans (6 0 1 13 4) (6 1 0 17 5) 
[Команда хозяев (X) и команда гостей (Y) ? Ответ (6 0 1 13 4) 
(6 1 0 17 5)] 

(Chelsea v Man Utd) (12 15) 

[(Челси — Манчестер Юнайтед) (12 15)] 


Ответ показывает, что небольшое преимущество отдается 
команде Манчестер-Юнайтед. И на самом деле счет в матче этих 
команд оказался 2 : 1 в пользу Манчестера. 

Если никакой новой информации в программу не вводилось, 
отношение form будет хранить данные о командах Челси и Манче¬ 
стер-Юнайтед. Используя эти данные, можно с помощью отноше¬ 
ний plus, score и аѵе получить много полезной информации. Напри¬ 
мер, запрос 

all (х у: х plus у) 


позволяет получить список очков, назначаемых командам в соот¬ 
ветствии с правилами 1—8. С помощью запроса 
all (х: score х) 

получаем основанный только на учете среднего голевого баланса 
прогноз — (3 3). Запрос 

all (х: h аѵе х) 

дает (2 1) —средний голевой баланс хозяев поля. 

Запрос 

all (х: а аѵе х) 

в свою очередь тоже дает (2 1) — средний голевой баланс гостей. 


Упражнение 6.7 

Используйте только что описанную экспертную систему (про¬ 
грамму 6.8) для предсказания результатов следующих матчей: 
Арсенал (5 1 1 10 6) — Манчестер Сити (1 2 4 6 11) 

Астон Вилла (1 3 3 9 10) — Оксфорд (0 3 5 10 23) 

Куинз Парк (5 1 1 11 4) — Шеффилд Юнайтед (5 0 2 11 9) 
Ипсвич (1 2 4 4 5) — Челси (1 3 3 6 11) 

Приведенная в этом разделе программа, позволяющая прогно¬ 
зировать результаты матчей, предоставляет широкие возможности 
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для экспериментирования. Конечно, никто не ожидает, что прогноз 
должен подтверждаться с вероятностью, близкой к 100%, но все же 
точность в 65—70% должна быть достижимой. Читатели могут 
попытаться усовершенствовать программу, внося изменения в отно¬ 
шение plus. Можно добавлять новые правила, удалять старые и 
изменять число добавляемых очков. Также имеется возможность 
более точно вычислять средний голевой баланс. Для этого нужно 
перед округлением умножить среднее на десять, тем самым сохра¬ 
няя первую десятичную цифру. Такая модификация следующим 
образом изменит отношение аѵе. 

X аѵе (Y Z) if 

X form (xy XI Yl) and 
X played Z1 and 
TIMES (XI Z1 XI) and 
TIMES (10x1 yl) and 
SUM (yl 5.0E 1 zl) and 
zlINTYand 
TIMES (X2 Zl Yl) and 
TIMES (10X2 Y2) and 
SUM (Y2 5.0E 1 Z2) and 
Z2INT Z and 
/ 

В случае, если необходимо значительно повысить роль средних 
оценок, их можно перед округлением умножать не на десять, а 
на сто. Заслуживает также внимания использование показателей 
команд во всех играх, а не отдельно в играх на своем и чужом 
полях. В этом случае можно с помощью разных весовых коэффи¬ 
циентов все-таки разделить игры на своем и чужом полях. 

Чемпионат Английской футбольной лиги был выбран в качестве 
прикладной области для нашего примера не случайно. Дело в том, 
что матчи этого чемпионата проводятся в течение всего сезона, и 
их результаты могут постоянно пополнять информационный 
запас системы. 

Упражнение 6.8 

Напомним, сославшись на материал по базам данных, что 
важно иметь возможность модифицировать любое правило, не 
прибегая при этом к слишком большому числу (а желательно и 
совсем без) переписываний других правил. В этом смысле два 
правила отношения plus являются неудачными. Найдите эти два 
правила и постарайтесь их улучшить. 

6 . 6 . СИСТЕМЫ, ОБЪЯСНЯЮЩИЕ ЛОГИКУ СВОЕЙ РАБОТЫ 

Желательно, чтобы пользователь имел возможность узнать 
у системы, каким образом она приходит к найденному заключению 
или как она объясняет тот или иной шаг в цепочке вывода, приво- 
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дящий к этому заключению. Почему важно иметь такую возмож¬ 
ность? Во-первых, если такая возможность есть, пользователь 
будет получать дополнительную информацию, которую он сможет 
использовать для принятия собственного решения, возможно, 
и не согласовывая его с выводами, сделанными экспертной систе¬ 
мой. Во-вторых, это позволит точно указать причины, приводящие 
к принятию системой неправильных решений. И, наконец, в- 
третьих, это поможет пользователям использовать протоколы 
работы системы для углубления своих знаний. Внесение изме¬ 
нений в отношение result, а также введение новых отношений 
в предыдущую программу (6.8) дают возможность пользователям 
в случае необходимости получить краткое описание процесса 
вывода (см. программу 6.9), реализуемого системой. 

Программа 6.9 


X result Y if 
game and 
Z points x and 
у score z and 
SUM (Z у X) and 
SUM (x z Y) and 
((PP home X Y away)) ? and 
choose 
choose if 

(either explain or X result Y) 
explain if 

(explain result) is-told and 
X points Y and 
Z score x and 
SUM (X Z y) and 
SUM (Y x z) and 

((P The home side has X bonus points, the away side has Y points and I 
add these points to the scoring probabilities to obtain у z)) ? 

X points Y if 

Z isall (Z: h plus Z) and 
x isall (x: a plus x) and 
Z tot X and 
x tot Y 

Естественно, можно предусмотреть выдачу более детальной 
информации о процессе логического вывода. Так, в нашем примере 
можно в принципе проследить, как с помощью отношения plus 
производится начисление очков. Но автору кажется, что тратить 
время на объяснение слишком большого числа мелких деталей 
нецелесообразно. Перейдем к описанию новых отношений. Отно¬ 
шение points, используемое для подсчета общего числа очков, 
получаемого с помощью правил отношения plus, вводится, во-пер¬ 
вых, для того, чтобы упростить отношение result, и, во-вторых, 
для того, чтобы обеспечить данными другое новое отношение — 
explain. Отношение choose осуществляет ту же функцию, что и 
оператор ветвления языка ассемблер или конвтрукция» «if ... 
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then ... else» языка высокого уровня. По мнению автора, ветвление 
в этой версии Пролога реализовано достаточно просто и элегантно, 
по крайней мере не так, как в Бейсике, где для этой цели исполь¬ 
зуются следующие операторы: 

IF ... THEN GOTO ... 

IF ... THEN GOSUB ... 

Отношение choose позволяет пользователю выбрать один из 
трех вариантов: либо получить объяснение поведения системы 
и продолжить работу, либо, не получив объяснения, перейти к 
анализу очередных данных, либо, наконец, ответив на оба вопроса 
системы по, выйти из системы. Если продолжить проведение ана¬ 
логий с языками высокого уровня, то можно сказать, что подобные 
действия реализуются там с помощью операторов вызова процедур. 
Так, в данном случае result как бы вызывает chose, которое в свою 
очередь либо вызывает explain и затем result, либо вызывает только 
result, либо просто завершает работу. Достоинство Пролога заклю¬ 
чается в том, что приведенная выше конструкция очень близка к 
предложению обычного естественного языка: «выберите либо 
объяснение поведения, либо переход к анализу новых данных, 
либо выход из системы». Следующий протокол демонстрирует 
работу усовершенствованной системы: 
all (: result х) 

[определить все (: результат-прогноза х)] 

home form (X) and away form (Y) ? ans (8 0 0 21 4) (1 16 5 17) 

[команда хозяев (X) и команда гостей (Y) ? ответ (8 0 0 21 4) 

(1 1 6 5 17)] 

home 58 11 away 

[хозяева 58 11 гости] 

explain result ? yes 

[надо ли объяснять, как получен результат ? да] 

The home side has 11 bonus points, the away side has 0 points 
[команда хозяев имеет 11 премиальных очков, команда гостей — 
0 ] 

and 1 add these points to the scoring probabilities 47 and 11 to 
obtain (58 11) 

[к ним прибавляются очки, полученные в результате учета 
среднего голевого баланса, умноженного на 10, в результате 
получаем (58 11)] 

home form (X) and away form (Y) ? ans (4 1 2 14 9) (0 1 6 8 21) 
[команда хозяев (X) и команда гостей (Y) ? ответ (4 1 2 14 9) 
(0 1 6 8 21 )] 
home 54 24 away 
[хозяева 54 24 гости] 
explain result ? no 

[надо ли объяснять, как получен результат ? нет] 

home form (X) and away form (Y) ? ans (1 2 4 4 9) (1 3 3 6 11) 

[команда хозяев (X) и команда гостей (Y) ? ответ (1 2 4 4 9) 
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(1 3 3 6 11)] 
home 22 22 away 
[хозяева 22 22 гости ] 
explain result ? no 

[надо ли объяснять, как получен результат ? нет] 
home form (X) and away form (Y) ? no 
[команда хозяев (X) и команда гостей (Y) ? нет] 
No (more) answers 
[Ответов (больше) нет] 

Отметим, что следует использовать запрос 
all (: result х) 

а не запрос 

all (х: result х) 


Упражнение 6.9 

Попробуйте модифицировать отношение result таким образом, 
чтобы система считала победителем того, кто набирает не менее 
чем на десять очков больше, чем его соперник. В противном случае 
результатом прогноза должна являться ничья. Прогноз должен 
быть дан на естественном языке, и, кроме того, в программе должна 
быть сохранена возможность объяснить свое поведение. 

6.6. СИСТЕМА, СПОСОБНАЯ К ОБУЧЕНИЮ 

Как известно, способность к обучению является неотъемлемым 
свойством интеллекта. Эффективность экспертной системы можно 
значительно повысить, если предусмотреть в ней средства, контро¬ 
лирующие ее работу и в случае необходимости позволяющие 
изменить базу знаний. Эти средства можно сделать полностью 
автоматическими. Так, многие промышленные робототехнические 
системы осуществляют последовательности операций первый раз 
под управлением человека-оператора, а в дальнейшем управляют 
процессом сами. Аналогично, робот может быть снабжен сенсор¬ 
ными устройствами, позволяющими ему «чувствовать» внешнюю 
среду и реагировать на нее. Например, в простейшем случае 
робот, обладая способностями к осязанию, может находить 
объекты и определять их местоположение в некоторой области. 
Такой робот будет в состоянии также обнаружить появление новых 
и отсутствие старых объектов. 

В тех областях, где экспертные системы используются либо для 
непосредственного принятия решений, либо как советчики, обрат¬ 
ная связь, позволяющая определить, правильно ли было принято 
решение, должна быть установлена с помощью человека. Описан¬ 
ная выше система, предназначенная для прогнозирования резуль¬ 
татов футбольных матчей, не будет знать о правильности своего 
предсказания до тех пор, пока мы не сообщили ей истинный 
результат. Если же такого сообщения нет, весьма возможно, что 
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система будет постоянно делать одни и те же ошибки, и тогда ее 
трудно будет назвать интеллектуальной. Для того чтобы избежать 
этого, можно выбрать один из двух путей. Остановимся сначала 
на первом пути. Предположим, что система в состоянии сообщать, 
какие факторы и как повлияли на ее решение. Тогда должны быть 
предусмотрены средства, позволяющие пользователю немного 
изменять правила для того, чтобы сделать менее вероятными 
неправильные прогнозы. Второй путь в принципе может дать 
больший эффект, но его труднее реализовать. Он заключается в 
наделении системы возможностями самой изменять собственные 
правила, исходя из результатов предыдущей работы. Начнем 
с первого, более легкого пути. Перед тем как использовать про¬ 
грамму 6.10, удалите из программы 6.9 отношения result, choose 
и explain. Советуем Вам до этого скопировать программу 6.9 для 
того, чтобы сохранить ее для дальнейшей работы. 

После удаления у Вас останется текст программы 6.8 с усовер¬ 
шенствованным вариантом отношения аѵе, в котором предусматри¬ 
вается перед округлением умножать средний голевой баланс на 
десять. Для того чтобы полностью сформировать программу, 
добавьте к этому тексту отношения, приведенные ниже. 

Программа 8.10 

X feast (Y Z) if 

(next X) is-told and 
Y feast 1 Z 
X feast 1 Y if 

(either Z result x and X plus Y or (edit which term y) is-told and 
у edit) 

X result Y if 
game and 
Z points x and 
у score z and 
SUM (Z у X) and 
SUM (x z Y) and 
((PP home X Y away)) ? 

X points Y if 

Z isall(Z:h plus (xZ)) and 
у is all (y: a plus (z y)) and 
Z tot X and 
у tot Y 

h plus (120) if 

h form (X Y Z i x) and 
SUM (Y Z y) and 
у LESS X 
h plus (2 10) if 

h form (X Y Z x) and 
Z LESS X 
h plus (3 20) if 

h form (X Y 0 j Z) 
h plus (4 10) if 

h form (X 0 Y) 
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h plus (5 10) if 

h form (X YZxy |z) and 
Z LESS X 
h plus (6 20) if 

hform(XYZxy z)and 
TIMES (2 у XI) and 
XI LESSx 
h plus (7 20) if 

h form (X Y Z x) and 
TIMES (2 Z y) and 
у LESSX 
a plus (8 40) if 

a form (XYZ x) and 
SUM (Y Z y) and 
у LESSX 
a plus (9 10) if 

a form (XYZJx) and 
Z LESSX 
a plus (10 20) if 

aFORM(XY0 Z) 
a plus (11 10) if 

Aform (X 0 1 Y) 
a plus (12 10) if 

a form (X Y Z x у z) and 
у LESSx 
a plus (13 20) if 

a form (X Y Z x у I z) and 
TIMES (2 у XI) and 
XI LESS x 
a plus (14 20) if 

a form (XYZ x) and 
TIMES (2 Z y) and 
у LESS X 

Полученная программа позволит Вам определить, какое 
именно правило отношения plus было использовано в процессе 
работы, и, кроме того, даст возможность в случае необходимости 
изменить это правило. Заметим, что отношения plus и points 
были модифицированы. Так, вторым аргументом всех утверждений 
отношения plus является теперь двухэлементный список; его пер¬ 
вый элемент служит идентификатором используемого правила, 
а второй элемент является вторым аргументом старого отношения 
plus, умноженным на десять. Семь утверждений отношения plus 
используются для команд хозяев, столько же для гостей. 

Отношение points преобразовано для того, чтобы привести его 
в соответствие с отношением plus. 

Число очков, присуждаемых команде при использовании пра¬ 
вил, было увеличено для того, чтобы расширить масштабы попра¬ 
вок, которые будут заключаться в увеличении или уменьшении 
числа добавляемых очков в зависимости от результата прогноза. 
Отношение feast позволяет пользователю взять уже сыгранный 
матч, получить прогноз и изменить, принимая во внимание истин- 
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ный результат матча, те правила отношения plus, которые его не 
устраивают. Отметим, что пользователю предоставляется возмож¬ 
ность даже в случае неверного прогноза ничего не менять, ведь он 
может решить, что результат настолько неожидан, что никакая 
система в принципе не в состоянии его предсказать. В любом слу¬ 
чае изменениям подвергаются только те правила, которые прини¬ 
мали участие в формировании прогноза. Было решено добавлять 
одно очко к каждому правилу, использованному в процессе выра¬ 
ботки прогноза, который оказался верным, и отбирать очко при 
неудачном результате прогноза. 

Читатели, если захотят, могут выработать свою процедуру 
поощрения и наказания. Модификация правила производится 
после ввода пользователем номера предложения в ответ на запрос 
системы. В данном случае модификация представляет собой до¬ 
вольно трудоемкую операцию, но кажется, что перед тем, как 
сделать процесс изменений полностью автоматическим, полезно 
все-таки еще раз проконтролировать работу системы: 

all (х у z: х feast (у z) 

[определить все (х у z: х прогноз (у z)) ] 
next X ? ans 1 
[следующий X ? ответ 1 ] 

home form (X) and away form (Y) ? ans (4 1 1 9 6) (1 0 5 3 12) 
[команда хозяев (X) и команда гостей (Y) ответ (4 1 19 6) 
(1 0 5 3 12)] 
home 95 25 away 
[хозяевд 95 25 гости] 

1 h (1 20) 

1 h (2 10) 

1 h (5 10) 

1 h (7 20) 

la (11 10) 

edit which term X ? ans plus 1 

[какое правило изменяется (X) ? ответ plus 1 ] 

1 (h plus (1 20) if h form (X Y Z (x) и SUM (Y Z у) и SUM 
(Y Z y) and у LESS X) * 

[1 (h plus (1 20) if h form (X Y Z) x) и SUM (Y Z у) и у 
LESS X)] 

edit which term X ? ans plus 2 

[какое правило изменяется X ? ответ plus 2] 

edit which term X ? no 
[какое правило изменяется X ? нет] 
next X ? ans 2 
[следующий X ? ответ 2] 

home form (X) and away form (Y) ? ans (4 1 1 13 5) (0 1 5 7 17) 


После этого пользователь модифицирует указанное правило. — Прим. пер. 



[команда хозяев (X) и команда гостей (Y) ? ответ (4 1 1 13 5) 

(015717)] 

home 134 20 away 

[хозяева 134 20 гости ] 

2 h (1 21) 

2 h (2 11) 

2 h (5 11) 

2 h (6 20) 

2 h (7 21) 

и т. д. 

После выдачи сообщения 

edit which term х ? 

пользователь может выбрать для редактирования любое предложе¬ 
ние и в зависимости от результатов прогноза либо увеличить, 
либо уменьшить число прибавляемых очков. После большего 
числа испытаний правила претерпевают ряд изменений и прини¬ 
мают вид, увеличивающий вероятность правильного прогноза. 
Коррекция правил — очень долгий и трудоемкий процесс и неце¬ 
лесообразно его полностью перекладывать на пользователя. Рас¬ 
смотрим, каким образом можно автоматизировать некоторые этапы 
этого процесса. 

Поскольку на небольших ЭВМ возможности хранения данных 
ограничены, эффективность реализации на них такого рода систем 
невысока. Для таких систем необходимы компьютеры с жесткими 
дисками и хорошие программы управления файлами. Это позволит 
хранить данные о результатах матчей, проведенных в течение 
длительного времени. Тогда можно будет использовать программы, 
сопоставляющие правильность прогноза с истинным результатом 
и в случае необходимости вносящие изменения в свои собственные 
правила. Способность программ корректировать самих себя — 
очень мощное средство Пролога. Эффективно это средство можно 
использовать только на больших машинах. 

Но вернемся к нашей системе. Процесс ее обучения можно 
регулировать автоматически. Приводимая ниже программа 6.11 
осуществляет коррекцию своих собственных правил, опираясь 
на результат прогноза. Но пользователям все же необходимо 
вводить данные о командах и информировать систему о результате 
каждого прогноза. Для того чтобы упростить систему и сэкономить 
память, было решено не проводить вычисление среднего голевого 
баланса и, кроме того, сократить количество правил, предназна¬ 
ченных для начисления очков, с восьми до четырех: два — для 
команды хозяев и два — для команды гостей. Вместо среднего 
голевого баланса теперь подсчитывается, g одной стороны, сумма 
мячей, забитых хозяевами и пропущенных гостями, a g другой, — 
сумма мячей, пропущенных хозяевами и забитых гостями. Полу¬ 
ченные числа участвуют в формировании показателей шансов 
команд во встрече друг с другом. 
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Программа 6.11 

()tot0 
(X Y) tot Z if 
Y tot x and 
SUM (X x Z) 
feast if 

(home form X and away form Y) is-told and 
form KILL and 
p KILL and 
X result Y and 

(Right or wrong 1 /- 1 Z) is-told and 
xpy and 
x amend (y Z) 

X result Y if 

(h form X) add and 
(a form Y) add and 
Z points x and 
(a p 0) add and 
((PP home Z x away)) ? and 
/ 

X amend (Y Z) if 

(X factor (Y x)) delete and 
SUM (Zxy) and 
(X factor (Yy)) add and 

/ 

X points Y if 

Z is all (Z: h plus (x Z)) and 
у isall (y: a plus (z y)) and 
Z tot XI and 
у tot Y1 and 

h form (Z1 xl yl zl X2) and 
a form (Y2 Z2 x2 y2 z2) and 
SUM (XI zl X3) and 
SUM (Yl y2 Y3) and 
SUM (X3 z2 X) and 
SUM (Y3 X2 Y) and 
/ 

X plus (1 Y) if 

Z factor (1 Y) and 
Z form (Z x у z) and 
у LESS Z and 
(X p 1) add 
X plus (2 Y) if 

X factor (2 Y) and 

X form (Z x у z) and 
SUM (x у XI) and 

XI LESS Z and 
(X p 2) add 

h factor (1 10) 
h factor (2 10) 
a factor (1 10) 
a factor (2 20) 
a factor (0 0) 
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Отношение feast принимает от пользователя данные об играю¬ 
щих командах и помещает их в базу данных, предварительно 
удалив все аналогичные данные. Затем оно используется для ввода 
оценки прогноза; оценка равна либо 1 (правильно), либо — 1 
(неправильно). И, наконец, отношение feast инициирует коррек¬ 
тировку правил. Отношение result дает возможность оценить 
шансы команд, используя для этого отношения points и plus. 
Points определяет число очков, начисляемых каждой команде 
с помощью правил отношения plus. Отношение plus генерирует 
новое предложен* е вида 

у р N 

и включает его в программу. Здесь у принимает либо значение h 
для команды хозяев, либо а — для команды гостей; N — номер 
правила. Эта информация используется автоматическим механиз¬ 
мом корректировки, реализуемым с помощью отношения amend. 
Корректировка заключается в увеличении или уменьшении на 
единицу аргумента одного из правил отношения factor. Достоин¬ 
ство этого отношения заключается в том, что его присутствие позво¬ 
ляет использовать одно и то же предложение plus как для команд 
хозяев, так и для команд гостей. Заметим, что отношение amend 
использует только короткие предложения для удаления и добавле¬ 
ния утверждений отношения factor. Это позволяет ускорить работу 
программы по сравнению с тем случаем, когда необходимо было 
корректировать все использованные правила отношения plus. 
Отметим, что утверждение 

а р 0 

которое добавляется к программе при выполнении отношения 
result, является фиктивным. Оно необходимо для того, чтобы 
проверка условия 

X р у 

в отношении feast не приводила к неудаче в тех случаях, когда 
ни одно из правил начисления очков не удалось применить. 
Проанализируем предложение 

a factor (0 N) 

где N — разность между числом правильных и неправильных 
прогнозов. 

Заметим, что пользователи могут добавить свои собственные 
правила к отношению plus. Каждое дополнительное правило 
должно включать утверждение вида 

(X р N) add 

где N — порядковый номер дополнительного правила. 

Вместе с дополнительными правилами должны также быть 
введены предложения вида 

h factor (N М) 
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и 

a factor (N М) 

где М — число очков, начисляемых в случае успешного применения 
правила. Вводимые пользователями правила будут так же, как 
и все остальные, корректироваться системой. 

Ниже приведен диалог между пользователем и только что 
описанной экспертной системой 

all (: feast) 

[определить все (: прогноз)] 

home form X and away form Y ? ans (5 1 1 10 6) (1 0 6 3 13) 
[команда хозяев X и команда гостей Y ? ответ (5 1 1 10 6) 
(1 0 6 3 13)1 
home 53 9 away 
[хозяева 53 9 гости] 

Right or wrong 1/ — 1 X ? just 1 

[Верен или неверен прогноз 1/ — 1 X ? последний ответ 1 ] 
(число пустых строк определяется количеством изменений, вно¬ 
симых системой) 

home form X and away form Y ? ans (6 0 0 15 0) (1 4 2 11 12) 
[команда хозяев X и команда гостей Y ? ответ (6 0 0 15 0) 
(1 4 2 11 12)] 
home 59 11 away 
[хозяева 59 11 гости] 

Right or wrong 1/ — 1 X ? just —1 

[Верен или не верен прогноз 1/ — IX? последний ответ —1 ] 

home form X and away form Y ? no 
[команда хозяев X и команда гостей Y ? нет] 

No more answers 
[Ответов (больше) нет] 

Ответ 1, оценивающий правильность первого прогноза, свиде¬ 
тельствует о том, что предсказание подтвердилось. В свою очередь, 
ответ —1 говорит о том, что прогноз, данный системой, неверен. 
В обоих случаях система применяет правила начисления очков 
только для команд хозяев. В связи с этим аргумент тех предложе¬ 
ний отношения factor, которые относятся к хозяевам, сначала 
увеличивается на 1, а затем на нее же уменьшается, т. е. в конеч¬ 
ном счете отношение factor не изменяется. Рассмотрим еще один 
пример работы системы: 

all (: fact) 

[определить все (: прогноз)] 

home form X and away form Y ? ans (5 1 1 1 0 6) (1 2 5 6 12) 
[команда хозяев X и команда гостей Y ? ответ (511106) 
(1 2 5 6 12)] 
home 52 12 away 
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[хозяева 52 12 гости] 

Right or wrong 1/ — 1 X ? just 1 

[Верен или неверен прогноз 1/ — 1 X ? последний ответ 1 ] 
home form X and away form Y ? ans (4 1 4 16 13) (4 2 2 11 12) 
[Команда хозяев X и команда гостей Y ? Ответ (41416 13) 
(4 2 2 11 12)] 
home 28 34 away 
[Хозяева 23 34 гости] 

Right or wrong 1/ — 1 X ? just 1 

[Верен или неверен прогноз 1/— 1 X ? последний ответ 1] 
home form X and away form Y ? ans (4 1 4 17 11) (2 2 5 12 14) 
[Команда хозяев X и команда гостей Y ? ответ (4 1 4 17 11) 
(2 2 5 12 14)] 
home 31 23 away 
[Хозяева 31 23 гости] 

Right or wrong 1/ — 1 X ? just 1 

[Верен или неверен прогноз 1/ — 1 X ? последний ответ 1 ] 
home form X and away form Y ? no 
[Команда хозяев X и команда гостей Y ? нет] 

No (more) answers 
[Ответов (больше) нет] 

В данном случае все три сделанные системой прогноза подтвер¬ 
дились. При формировании последнего прогноза ни одно из правил 
начисления очков не использовалось (прогноз был дан только на 
основании учета голевого баланса команд). Посмотрим, какой вид 
приняли предложения, входящие в состав отношения factor: 
a factor (2 20) 
h factor (2 21) 
h factor (1 11) 
a factor (1 11) 
a factor (0 3) 

Последнее предложение показывает, что все три прогноза 
оказались успешными. Аргументы предложений, относящихся к 
командам—хозяевам поля, были увеличены на 1, поскольку оба 
правила начисления очков были использованы по одному разу. 
На единицу был увеличен и аргумент одного предложения, отно¬ 
сящегося к команде гостей, так как для гостей удалось применить 
только первое правило отношения rule. Приведем теперь пример 
неверного прогноза 
all (: feast) 

[определить все (: прогноз) ] 

home form X and away form Y ? ans (4 2 3 15 8) (2 2 5 12 11) 
[команда хозяев X и команда гостей Y ? ответ (4 2 3 15 8) 
(2 2 5 12 11)] 
home 37 20 away 
[хозяева 37 20 гости] 
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Right or wrong 1/ — 1 ? just —1 

[Верен или неверен прогноз 1/ — IP поеледний ответ —11 
home form X and away form Y ? no 
[команда хозяев X и команда гоетей Y ? нет] 

No (more) answers 
[Ответов (больше) нет] 

Предложения отношения faetor теперь имеют еледующий вид: 
a factor (2 20) 
h factor (2 21) 
a factor (1 11) 
h factor (1 10) 
a factor (0 2) 

Таким образом, можно сделать вывод, что применялось первое 
правило, и поскольку прогноз не подтвердился, аргумент соответ¬ 
ствующего предложения factor был уменьшен на 1, т. е. вместо 11 
он стал равным 10. 

Хотя программа 6.11 невелика, она обладает довольно значи¬ 
тельными возможностями и, что наиболее важно, позволяет прово¬ 
дить с ней многочисленные эксперименты. Область применения 
такого рода программ, естественно, не ограничивается предсказа¬ 
нием результатов футбольных матчей. Принципы, положенные 
в основу их создания, можно использовать в процессе разработки 
экспертных систем для любой области, в которой данные, накоп¬ 
ленные к настоящему времени, обрабатываются с помощью мно¬ 
жества правил. Эти правила первоначально определил эксперт, 
но они могут быть автоматически изменены после сопоставления 
реальных и полученных системой результатов. В качестве одной 
из таких областей может быть взята задача прогнозирования 
погоды. Пользователям домашних компьютеров в этом случае, 
как и во многих других, не стоит огорчаться из-за того, что на их 
машинах могут быть решены лишь небольшие задачи. Ведь каче¬ 
ство используемых ими идей и степень общности, которой они в 
состоянии достичь, значительно важнее размера и сложности 
программной системы. Область, называемая искусственным интел¬ 
лектом, без сомнения будет постоянно привлекать многих людей — 
и тех, кто просто получает удовольствие от решения интересных 
задач, и тех, кто профессионально занимается использованием 
вычислительной техники. 

Ответы к упражнениям 


Упражнение 6.1 

a) all (х: check х) 

[определить все (х: проверка х)] 
fault X ? ans по -play 
[неисправность X ? ответ не-играет| 
cassette-in ? у 


234 



[вставлена ли кассета? да] 
cassette-rewound ? у 
[перемотана ли кассета? да] 
on-play ? у 

[нажата ли клавиша «Пуск»? да] 
tape-moving ? по 
[движется ли лента? нет] 

(try motor fault) 

[проверьте исправность электродвигателя] 
all (х: check х) 

[определить все (х: проверка х) ] 
fault X? ans motor 

[неисправность X ? ответ электродвигатель] 

(12 ѵ on motor ? у) 

[(напряжение на электродвигателе равно 12 В)? да] 
motor-running ? у 
[электродвигатель вращается ? да] 
drivebelt ? у 

[приводной ремень в порядке? да ] 
idler ? у 

[натяжной ролик в порядке? да] 
pinchwheel ? по 
[маховик в порядке? нет] 
replace pinchwheel 
[замените маховик] 
б) all (х: check х) 

[определить все (х: проверка х) ] 
fault X ? ? ans motor 

[неисправность X ? ответ электродвигатель] 

(12 ѵ on motor ? у 

[(напряжение на электродвигателе равно 12 В)? да] 


Упражнении 8.2, 8.3 

Ответы к этим упражнениям зависят от выбранной читателем предметной 
области, но следует отметить, что те методы, которые использовались в про¬ 
граммах 6.1, 6.2 и 6.3, должны и здесь привести к успеху. 


Упражнение 6.4 

Используйте программу 6.5 для выбора в первом случае (а) метода сквоз¬ 
ных металлизированных отверстий, а во втором случае (б) традиционного метода. 
После этого запрашивайте нужную информацию 


Упражнение 8.5 

а) all (х :у х stage у) 

б) all (х: 2 awaits х) 

в) all (х у: process г and standard X and х ON z and у ON X and (x y) match 
(z X) 

r) all (x: 3 next x) 

job 3 operation X inspection Y ? just drill op2 


Упражнение 6.6 

Все зависит от выбранного читателем последовательного процесса. 
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Упражнение в.7 

(9 2), (4 2), (11 12), (3 2) 

А вот реальные результаты матчей: 1 : 0, 2 : 0, 1:1 и О : 2. 


Упражнение в. 8 

Неудачными являются пятое и шестое правила отношения plus. Может 
случиться так, что пользователи захотят ввести еще несколько элементов данных 
в список. Например, им может понадобиться s (количество) сыгранных матчей. 
Тогда список примет вид (w dl f a s). Чтобы указанные правила стали универ¬ 
сальными, необходимо использовать в ник утверждения form вида 
form (Y Z х у г XI) 

Утверждения такого вида позволяют работать с произвольным числом эле¬ 
ментов в списке. Заметим, что при появлении новой информации, возможно при¬ 
дется добавить в программу еще несколько правил, предназначенных для начис¬ 
ления очков. 


Упражнение в.9 

Один из возможных методов предусматривает изменение отношения result 
и введение дополнительного отношения. 

X result Y if 
game and 
Z points x and 
у score z and 
SUM (Z у X) and 
SUM (xzY)and 
((PP home X Y away))? and 
X feast Y and 
choose 
X feast Y if 

SUM (X 9 Z) and 
Z LESS Y and 

((PP This looks like an away win))? and 

/ 

X feast Y if 

SUM (Y 9 Z) and 
Z LESS X and 

((PP This should be a home win))? and 

/ 

X feast Y if 

((PP A possible draw))? and 
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ГОТОВЯТСЯ К ПЕЧАТИ 
В ИЗДАТЕЛЬСТВЕ «МАШИНОСТРОЕНИЕ»: 


Искусственный интеллект: Применение 
в интегрированных производственных системах/Под ред. 
Э. Кусяка; Перевод с английского А. П. Фомина; Под ред. 
А. И. Дащенко, Е. В. Левнера. — М.і Машиностроение, 
1991. 

Книга открывает новую серию «Искусственный интеллект 
в промышленности», выпускаемую издательствами ИФС (Ве¬ 
ликобритания) и «Шпрингер» (ФРГ). В книге обобщен 
опыт применения методов искусственного интеллекта для 
решения сложных задач, возникающих при создании гибких 
и интегрированных производственных систем. Это первая 
в СССР переводная книга, рассматривающая проблему 
комплексно: от тактильных сенсоров и распознавания речи 
до управления автоматическими складами и баз данных. 

Книга особенно рекомендуется инженерам, разрабаты¬ 
вающим промышленные роботы. 



Рот К- Алгоритмизация конструирования с помощью 
каталогов/Перевод с немецкого В. И. Борзенко, К. В. Ка¬ 
зарновского-Кроля, А. Л. Колосова; Под ред. Б. А. Березов¬ 
ского.— М.: Машиностроение, 1991. 

Перевод книги автора из ФРГ является первым в нашей 
стране изложением систематизированного подхода к констру¬ 
ированию широкого спектра изделий машиностроения с по¬ 
мощью таблиц конструкторских решений (каталогов). 
При этом подходе задача раскладывается на элементарные 
подзадачи, известные варианты решения которых содержатся 
в каталогах. Наряду с большим числом готовых каталогов 
книга содержит указания по составлению новых и дополне¬ 
нию имеющихся каталогов. Изложенная концепция создает 
фундамент для автоматизации проектирования любого 
класса машин и механизмов. 

Круг читателей: творчески работающие теоретики и прак¬ 
тики конструирования, специалисты по теории машин и ме¬ 
ханизмов, методологи и разработчики машиностроитель¬ 
ных САПР, а также студенты и аспиранты соответствующих 
специальностей. 
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